Cleanup warnings

src/Dodge/Render/MenuScreen.hs

@@ -6,9 +6,9 @@ module Dodge.Render.MenuScreen
     )
     where
 import Dodge.Data.Menu
-import Dodge.Config.Update
+--import Dodge.Config.Update
 import Dodge.Config.Data
-import Dodge.Base (halfWidth,halfHeight)
+--import Dodge.Base (halfWidth,halfHeight)
 import Picture
 
 menuScreen 
@@ -18,7 +18,6 @@ menuScreen
     -> [MenuLayer]
     -> Picture
 menuScreen cfig hw hh mLays = case mLays of
-    [] -> blank 
     (LevelMenu x:_) -> optionsList hw hh ("LEVEL"++show x) [] 
     (PauseMenu:_)   -> optionsList hw hh "PAUSED"
         ["N - NEW LEVEL"
@@ -57,7 +56,7 @@ menuScreen cfig hw hh mLays = case mLays of
     mavol = f $ _volume_master cfig
     snvol = f $ _volume_sound  cfig
     muvol = f $ _volume_music  cfig
-    f x = show $ round $ 10 * x
+    f x = show $ (round $ 10 * x :: Int)
     showShadRes i = "1/"++ show i
 
 optionsList
@@ -74,6 +73,7 @@ optionsList hw hh tit ops = pictures $
   where
     placeString x y sc t = translate x y $ scale sc sc $ color white $ text t
 
+controlsList :: Picture
 controlsList = pictures $ concat $ zipWith butAndEff
     [("wasd",           "movement")
     ,("[rmb]",          "aim")