Add newtype for item id int

2024-09-28 23:34:32 +01:00
parent 241191ee1b
commit 7d72fa3c5d
14 changed files with 274 additions and 267 deletions
@@ -23,7 +23,7 @@ copyItemToFloorID pos it w =
    (,) (NInt flid) $
        w'
            & cWorld . lWorld . floorItems . unNIntMap %~ IM.insert flid theflit
-            & cWorld . lWorld . itemLocations %~ IM.insert (_itID it) (OnFloor $ NInt flid)
+            & cWorld . lWorld . itemLocations %~ IM.insert (_unNInt $ _itID it) (OnFloor $ NInt flid)
  where
    (p', w') = findWallFreeDropPoint (_dimRad $ _itDimension it) pos w
    rot = fst . randomR (- pi, pi) $ _randGen w