Add newtype to floor item ids

src/Dodge/RadarSweep.hs

@@ -3,6 +3,7 @@ module Dodge.RadarSweep
     , updateRadarSweep
     ) where
 
+import NewInt
 import Color
 import Data.Maybe
 import Dodge.Data.World
@@ -72,7 +73,7 @@ crBlips p r = IM.elems . IM.filter f . fmap _crPos . IM.filter g . _creatures .
     g cr = _crID cr /= 0
 
 itemBlips :: Point2 -> Float -> World -> [Point2]
-itemBlips p r = IM.elems . IM.filter f . fmap _flItPos . _floorItems . _lWorld . _cWorld
+itemBlips p r = IM.elems . IM.filter f . fmap _flItPos . _unNIntMap . _floorItems . _lWorld . _cWorld
   where
     f q = dist p q <= r && dist p q > r - 4