Add files

src/Dodge/Event/Keyboard.hs

@@ -68,13 +68,13 @@ gotoTerminal w = case _menuLayers w of
 spaceAction :: World -> World
 spaceAction w = if _carteDisplay w
     then w & carteCenter .~ theLoc
-    else case (_inventoryMode w, listToMaybe $ _closeActiveObjects w) of
+    else case (_inventoryMode w, listToMaybe $ _closeObjects w) of
         (TopInventory,Just (Left flit)) -> pickUpItem 0 flit w
         (TopInventory,Just (Right but)) -> updateTopCloseObject (_btID but) $ _btEvent but but w
         _ -> w & inventoryMode .~ TopInventory
   where
     theLoc = fst (_seenLocations w IM.! _selLocation w) w
-    updateTopCloseObject i w' = w' & closeActiveObjects %~ ( Right (_buttons w' IM.! i) : ) . tail 
+    updateTopCloseObject i w' = w' & closeObjects %~ ( Right (_buttons w' IM.! i) : ) . tail 
 
 pauseGame :: World -> World
 pauseGame w = w {_menuLayers = [pauseMenu]}