Clear all warnings

app/Main.hs

@@ -1,8 +1,6 @@
 module Main where
 import Loop
-import Shader
 import LoadConfig
-import Dodge.Default
 import Dodge.Data
 import Dodge.Initialisation
 import Dodge.Update
@@ -21,11 +19,10 @@ import Preload
 import Sound.Data
 import Music
 
-import Control.Concurrent
 import Control.Lens
-import Foreign (Word32)
+--import Foreign (Word32)
 import Control.Monad
-import System.Random
+--import System.Random
 import qualified Data.Map                  as M
 import qualified Data.IntMap               as IM
 import Graphics.Rendering.OpenGL hiding (color, rotate, scale, translate)
@@ -35,20 +32,20 @@ import qualified SDL.Mixer                 as Mix
 main :: IO ()
 main = do
     (sizex,sizey) <- loadConfig
-    keyConfig <- loadKeyConfig
+    theKeyConfig <- loadKeyConfig
     dodgeConfig <- loadDodgeConfig
     setupLoop
         (sizex,sizey)
         (SDL.cursorVisible $= False >> doPreload >>= applyWorldConfig dodgeConfig)
         (\x -> (SDL.cursorVisible $= True) >> cleanUpPreload x)
-        (fmap (setWindowSize sizex sizey keyConfig . (config .~ dodgeConfig)) firstWorld)
+        (fmap (setWindowSize sizex sizey theKeyConfig . (config .~ dodgeConfig)) firstWorld)
         doSideEffects
         handleEvent
         (Just . update)
 
 doSideEffects :: PreloadData SoundOrigin -> World -> IO (PreloadData SoundOrigin)
 doSideEffects preData w = do
-    startTicks <- SDL.ticks
+    --startTicks <- SDL.ticks
     void $ doDrawing (_renderData preData) w
     playPositionalSoundQueue (_loadedChunks $ _soundData preData) (_soundQueue w)
     newPlayingSounds <- playAndUpdate (_soundData preData) (_sounds w)