Refactor world events

src/Dodge/Event/Keyboard.hs

@@ -4,6 +4,7 @@ module Dodge.Event.Keyboard
     , handleTextInput
     , guardDisconnectedID
     ) where
+import Dodge.WorldPos
 import Dodge.Button.Event
 import Dodge.Terminal
 import Dodge.InputFocus
@@ -134,7 +135,7 @@ spaceAction w = case _hudElement $ _hud w of
     DisplayInventory DisplayTerminal {} -> w & hud . hudElement .~ DisplayInventory NoSubInventory
     _ -> w & hud . hudElement .~ DisplayInventory NoSubInventory
   where
-    theLoc = fst (_seenLocations w IM.! _selLocation w) w
+    theLoc = doWorldPos (fst (_seenLocations w IM.! _selLocation w)) w
 --    updateTopCloseObject i w' = w' & closeObjects %~ ( Right (_buttons w' IM.! i) : ) . tail
 
 pauseGame :: World -> World