Refactor menu

src/Loop.hs

@@ -1,4 +1,4 @@
-{-|
+{- |
 Module      : Loop
 Description : Minimal game loop
 
@@ -7,14 +7,14 @@ This module sets up an SDL window which may be updated using a simple game loop.
 module Loop
     ( setupLoop
     ) where
-import SDL
 import qualified Data.Text as T
 import Control.Concurrent
 import Control.Exception
-import qualified Graphics.Rendering.OpenGL as GL
 import Control.Monad
 import System.Mem
 import Foreign.C
+import SDL
+import qualified Graphics.Rendering.OpenGL as GL
 
 import Control.Lens ((.~),(&),(+~))