Add newtype to floor item ids

2024-09-23 22:42:09 +01:00
parent 43b365185d
commit 265da89791
20 changed files with 193 additions and 158 deletions
@@ -1,5 +1,6 @@
 module Dodge.TractorBeam.Update where

+import NewInt
 import Control.Lens
 import Dodge.Data.World
 import Geometry
@@ -11,7 +12,7 @@ updateTractorBeam w pj
    | otherwise =
        ( w
            & cWorld . lWorld . creatures %~ IM.map (tractCr pullVel pos outpos)
-            & cWorld . lWorld . floorItems %~ IM.map (tractFlIt pullVel pos outpos)
+            & cWorld . lWorld . floorItems . unNIntMap %~ IM.map (tractFlIt pullVel pos outpos)
        , Just (pj & tbTime -~ 1)
        )
  where