Add newtype to floor item ids

src/Dodge/Default/World.hs

@@ -1,5 +1,6 @@
 module Dodge.Default.World where
 
+import NewInt
 import Control.Lens
 import Data.Graph.Inductive.Graph hiding ((&))
 import qualified Data.Map as M
@@ -125,7 +126,7 @@ defaultLWorld =
         , _doors = IM.empty
         , _coordinates = IM.empty
         , _triggers = IM.empty
-        , _floorItems = IM.empty
+        , _floorItems = NIntMap IM.empty
         , _worldEvents = []
         , _delayedEvents = []
         , _pressPlates = IM.empty