Add newtype to floor item ids

src/Dodge/Item/Location/Initialize.hs

@@ -3,6 +3,7 @@ module Dodge.Item.Location.Initialize
     , initItemLocations
     )
     where
+import NewInt
 import Dodge.Data.LWorld
 import Control.Lens
 import qualified IntMapHelp as IM
@@ -17,9 +18,9 @@ initCrsItemLocations w = w' & creatures .~ newcreatures
     (w', newcreatures) = mapAccumR initCrItemLocations w (w ^. creatures)
 
 initFlItemsLocations :: LWorld -> LWorld
-initFlItemsLocations w = w' & floorItems .~ newfloorItems
+initFlItemsLocations w = w' & floorItems .~ NIntMap newfloorItems
   where
-    (w', newfloorItems) = mapAccumR initFlItemLocation w (w ^. floorItems)
+    (w', newfloorItems) = mapAccumR initFlItemLocation w (w ^. floorItems . unNIntMap)
 
 initTusItemLocations :: LWorld -> LWorld
 initTusItemLocations w = w' & machines .~ newmachines