Work towards fixing inventory space leak

src/Dodge/Inventory/SelectionList.hs

@@ -6,6 +6,7 @@ module Dodge.Inventory.SelectionList (
     closeButtonToSelectionItem,
 ) where
 
+import Dodge.Data.DoubleTree
 import Dodge.Item.InvSize
 import Dodge.Data.ComposedItem
 import Dodge.Data.SelectionList
@@ -19,8 +20,9 @@ import NewInt
 import Padding
 import Picture.Base
 
-invSelectionItem :: Int -> World -> ComposedItem -> SelectionItem ()
-invSelectionItem indent w ci =
+--invSelectionItem :: Int -> World -> ComposedItem -> SelectionItem ()
+invSelectionItem :: World -> Int -> LocationLDT ItemLink ComposedItem -> SelectionItem ()
+invSelectionItem w indent loc =
     SelectionItem
         { _siPictures = pics & ix 0 %~ (++ anyequippos ++ anyhotkey)
         , _siHeight = itInvHeight $ ci ^. _1
@@ -31,6 +33,7 @@ invSelectionItem indent w ci =
         , _siPayload = ()
         }
   where
+    ci = loc ^. locLDT . ldtValue
     lw = w ^. cWorld . lWorld
     cr = lw ^?! creatures . ix 0
     itid = ci ^. _1 . itID . unNInt