Fix close floor item bug

src/Dodge/Placement/PlaceSpot.hs

@@ -4,6 +4,7 @@
 -}
 module Dodge.Placement.PlaceSpot (placeSpot) where
 
+import NewInt
 import Color
 import LensHelp
 import Control.Monad.State
@@ -110,7 +111,8 @@ placeSpotID' ps pt w = case pt of
     PutTerminal tm -> plNewUpID (cWorld . lWorld . terminals) tmID tm w
     PutFlIt itm -> let i = IM.newKey (w ^. cWorld . lWorld . itemLocations)
         in (i, w & cWorld . lWorld . itemLocations . at i ?~ OnFloor
-            & cWorld . lWorld . floorItems . at i ?~ createFlIt p rot itm
+            & cWorld . lWorld . floorItems . at i ?~ createFlIt p rot 
+                (itm & itID .~ NInt i)
             )
 --        plNewUpID
 --            (cWorld . lWorld . floorItems . unNIntMap)