Stop displaying hotkeys and equip positions, fixes space leak

src/Dodge/Inventory/SelectionList.hs

@@ -24,7 +24,8 @@ import Picture.Base
 invSelectionItem :: World -> Int -> LocationLDT ItemLink ComposedItem -> SelectionItem ()
 invSelectionItem w indent loc =
     SelectionItem
-        { _siPictures = pics & ix 0 %~ (++ anyequippos ++ anyhotkey)
+--        { _siPictures = pics & ix 0 %~ (++ anyequippos ++ anyhotkey)
+        { _siPictures = pics -- & ix 0 %~ (++ anyequippos ++ anyhotkey)
         , _siHeight = itInvHeight $ ci ^. _1
         , _siWidth = 15
         , _siIsSelectable = True
@@ -38,7 +39,9 @@ invSelectionItem w indent loc =
     cr = lw ^?! creatures . ix 0
     itid = ci ^. _1 . itID . unNInt
     anyhotkey = maybe [] ((' ' :) . hotkeyToString) (lw ^? imHotkeys . unNIntMap . ix itid)
-    anyequippos = maybe [] (rightPad 8 ' ' . (' ' :) . eqPosText) 
+    anyequippos = maybe 
+        [] 
+        (rightPad 8 ' ' . (' ' :) . eqPosText) 
         (ci ^? _1 . itLocation . ilEquipSite . _Just)
     col = itemInvColor ci
     pics = itemDisplay w cr ci
@@ -93,7 +96,6 @@ closeButtonToSelectionItem w i = do
             }
 
 closeItemToTextPictures :: FloorItem -> ([String], Color)
-closeItemToTextPictures flit = 
-    (basicItemDisplay it, itemInvColor $ baseCI it)
+closeItemToTextPictures flit = (basicItemDisplay it, itemInvColor $ baseCI it)
   where
     it = _flIt flit