Apply Hlints

app/Main.hs

@@ -32,7 +32,7 @@ import Control.Monad (when)
  
 import System.Random
 
-import qualified SDL as SDL
+import qualified SDL
 import qualified SDL.Mixer as Mix
 import Graphics.Rendering.OpenGL hiding (color,scale,translate,rotate)
 
@@ -73,14 +73,14 @@ main = do
                       return $ preData & soundData  .~ newSoundData
                                        & frameTimer .~ endTicks
         )
-        (flip $ menuEvents $ handleEvent)
-        (\w -> Just $ update w)
+        (flip $ menuEvents handleEvent)
+        (Just . update)
     Mix.closeAudio
 
 checkForGlErrors :: IO ()
 checkForGlErrors = do
     errs <- errors
-    when (length errs > 0) $ putStrLn $ "GLerror during doLoop: " ++ (unwords $ map show errs)
+    when (length errs > 0) $ putStrLn $ "GLerror during doLoop: " ++ unwords (map show errs)
 
 setWindowSize :: Int -> Int -> World -> World
 setWindowSize x y w = w & windowX .~ fromIntegral x