Cleanup warnings

src/Dodge/Event/Keyboard.hs

@@ -11,7 +11,7 @@ import Dodge.Picture.Layer
 import Dodge.Base
 import Dodge.Creature.Action
 import Dodge.Config.KeyConfig
-import Dodge.Room.Placement
+--import Dodge.Room.Placement
 import Dodge.LightSources
 import Dodge.LevelGen
 import Dodge.Creature.Inanimate
@@ -77,18 +77,19 @@ spaceAction w = if _carteDisplay w
             Nothing -> w
   where
     theLoc = fst (_seenLocations w IM.! _selLocation w) w
-    updateTopCloseObject i w = w & closeActiveObjects %~ ( Right (_buttons w IM.! i) : ) . tail 
+    updateTopCloseObject i = closeActiveObjects %~ ( Right (_buttons w IM.! i) : ) . tail 
 
 pauseGame :: World -> World
 pauseGame w = w {_menuLayers = [PauseMenu]}
 
+toggleMap :: World -> World
 toggleMap w = w & carteDisplay %~ not
+escapeMap :: World -> World
 escapeMap w = w & carteDisplay .~ False
 
 dropLight :: World -> World
 dropLight w = placeLS ls dec pos 0 w
   where --(rot, g) = randomR (-pi,pi) $ _randGen w
-    i = newCrKey w -- to give different lights different keys
     pos = _crPos(you w)
     ls = lightAt pos 0
     dec = onLayer PtLayer $ color white $ circleSolid 8