Refactor floor items, removing ids (not fully checked)

src/Dodge/DisplayInventory.hs

@@ -9,6 +9,7 @@ module Dodge.DisplayInventory (
     toggleCombineInv,
 ) where
 
+import NewInt
 import Control.Applicative
 import Control.Lens
 import Control.Monad
@@ -158,7 +159,7 @@ updateDisplaySections w cfig =
     cr = you w
     closeitms =
         IM.fromDistinctAscList . zip [0 ..] $
-            mapMaybe (closeItemToSelectionItem w) (w ^. hud . closeItems)
+            mapMaybe (closeItemToSelectionItem w) (map _unNInt $ w ^. hud . closeItems)
     invitems =
         IM.map
             (uncurry (invSelectionItem w))