Add newtype to floor item ids

src/Dodge/Placement/PlaceSpot.hs

@@ -5,6 +5,7 @@ module Dodge.Placement.PlaceSpot (
     placeSpot,
 ) where
 
+import NewInt
 import Color
 import Control.Lens
 import Control.Monad.State
@@ -99,7 +100,8 @@ placeSpotID' ps pt w = case pt of
     PutProp prp -> plNewUpID (cWorld . lWorld . props) prID (mvProp p rot prp) w
     PutButton bt -> plNewUpID (cWorld . lWorld . buttons) btID (mvButton p rot bt) w
     PutTerminal tm -> plNewUpID (cWorld . lWorld . terminals) tmID tm w
-    PutFlIt itm -> plNewUpID (cWorld . lWorld . floorItems) flItID (createFlIt p rot itm) w
+    PutFlIt itm -> plNewUpID (cWorld . lWorld . floorItems . unNIntMap) (flItID . unNInt) 
+        (createFlIt p rot itm) w
     PutCrit cr -> plNewUpID (cWorld . lWorld . creatures) crID (mvCr p rot cr) w
     PutForeground fs -> plNewUpID (cWorld . lWorld . foregroundShapes) fsID (mvFS p rot fs) w
     PutDecoration pic -> plNewID (cWorld . lWorld . decorations) (shiftDec p rot pic) w