Add files

src/Dodge/Render/HUD.hs

@@ -156,7 +156,7 @@ mapWall w wl =
 closeObjectTexts :: World -> Picture
 closeObjectTexts w = pictures $ 
     renderListAt pushout (negate 20 * fromIntegral invPos)
-        w (map colAndText $ _closeActiveObjects w)
+        w (map colAndText $ _closeObjects w)
     : maybeToList maybeLine
   where
     colAndText (Left x)  = ( _itName $ _flIt x, _itInvColor $ _flIt x)
@@ -164,7 +164,7 @@ closeObjectTexts w = pictures $
     youSel = _crInvSel $ you w
     freeSlot = mayIt >>= \it -> checkInvSlotsYou (_flIt it) w
     invPos = fromMaybe youSel freeSlot
-    mayObj = listToMaybe $ _closeActiveObjects w
+    mayObj = listToMaybe $ _closeObjects w
     mayIt = mayObj >>= maybeLeft
     maybeLeft (Left x) = Just x
     maybeLeft _  = Nothing