Cleanup invSelectionItem

src/Dodge/DisplayInventory.hs

@@ -9,6 +9,7 @@ module Dodge.DisplayInventory (
     updateCombinePositioning,
 ) where
 
+import Control.Lens
 import Dodge.Inventory.SelectionList
 import Control.Monad
 import qualified Data.IntMap.Strict as IM
@@ -24,7 +25,6 @@ import Dodge.Inventory.CheckSlots
 import Dodge.ListDisplayParams
 import Dodge.SelectionList
 import Dodge.Item.Grammar
-import LensHelp
 import ListHelp
 import Picture.Base
 import Regex
@@ -113,8 +113,7 @@ updateDisplaySections w cfig sss =
     coitems' =
         IM.fromDistinctAscList . zip [0 ..] $
             map closeObjectToSelectionItem (w ^. hud . closeObjects)
-    --invitems' = MIM.merge MIM.dropMissing MIM.dropMissing (MIM.zipWithMatched $ const addindent) indents $ IM.mapWithKey (invSelectionItem cr) inv
-    invitems' = IM.mapWithKey (invSelectionItem cr) inv
+    invitems' = IM.mapWithKey (\k (x,y,_) -> invSelectionItem cr k x y) inv
     cr = you w
     inv = invIndentIM  $ _crInv (you w)
     --indents = indentInv inv