Cleanup warnings

src/Dodge/Event/Menu.hs

@@ -13,7 +13,7 @@ import Dodge.Layout
 import Preload.Update
 
 import Data.Maybe
-import qualified Data.Set as S
+--import qualified Data.Set as S
 import Control.Lens
 import SDL
 
@@ -62,8 +62,8 @@ handlePressedKeyInMenu mState scode w = case mState of
     startLevel = unpause . storeLevel
     dec x = max 0 (x - 0.1)
     inc x = min 1 (x + 0.1)
-    pushMenu ml w   = Just $ w & menuLayers %~ (ml :)
-    popMenu w       = Just $ w & menuLayers %~ tail
+    pushMenu ml w'   = Just $ w' & menuLayers %~ (ml :)
+    popMenu w'       = Just $ w' & menuLayers %~ tail
     sw = w & sideEffects %~ (setVol (_config w) : )
     startNewGame = Just $ w
         & menuLayers .~ [WaitMessage "GENERATING..." 1]
@@ -80,9 +80,12 @@ updateFramebufferSize w = w & sideEffects
     (x,y) = (round $ getWindowX w, round $ getWindowY w)
     divRes = w ^. config . shadow_resolution
 
+
+cycleResolution :: (Eq a, Num a, Num p) => a -> p
 cycleResolution 1 = 2
 cycleResolution 2 = 4
 cycleResolution 4 = 1
+cycleResolution _ = 1
 
 storeLevel :: World -> World
 storeLevel w = case _storedLevel w of