Add newtype to floor item ids

src/Dodge/Render/ShapePicture.hs

@@ -2,6 +2,7 @@ module Dodge.Render.ShapePicture (
     worldSPic,
 ) where
 
+import NewInt
 import Dodge.Render.List
 import Control.Lens
 import Control.Monad (guard)
@@ -30,7 +31,7 @@ worldSPic cfig u =
         <> foldup (shiftDraw _fsPos _fsDir (const _fsSPic)) (filtOn _fsPos _foregroundShapes)
         <> foldup (shiftDraw' _cpPos _cpDir _cpSPic) (filtOn _cpPos _corpses)
         <> foldup drawCreature (filtOn _crPos _creatures)
-        <> foldup floorItemSPic (filtOn _flItPos _floorItems)
+        <> foldup floorItemSPic (filtOn _flItPos (_unNIntMap . _floorItems))
         <> foldup btSPic (filtOn _btPos _buttons)
         <> foldup mcSPic (filtOn _mcPos _machines)
         <> aimDelaySweep w