Add newtype to floor item ids

src/Dodge/Data/LWorld.hs

@@ -47,6 +47,7 @@ module Dodge.Data.LWorld (
     module Dodge.Data.WorldEffect,
 ) where
 
+import NewInt
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -128,7 +129,7 @@ data LWorld = LWorld
     , _blocks :: IM.IntMap Block
     , _coordinates :: IM.IntMap Point2
     , _triggers :: IM.IntMap Bool
-    , _floorItems :: IM.IntMap FloorItem
+    , _floorItems :: NewIntMap FloorInt FloorItem
     , _modifications :: IM.IntMap Modification
     , _worldEvents :: [WdWd]
     , _delayedEvents :: [(Int, WdWd)]