Remove reified impulses from creature record

2025-10-18 15:42:35 +01:00
parent b43168ae33
commit 4ee389efb1
16 changed files with 155 additions and 191 deletions
@@ -57,7 +57,7 @@ walkableNodeNear w p = fmap fst . find (flip (isWalkable p) w . snd) $ nodesNear
    nodesNear = zonesExtract (w ^. pnZoning) . snailAround $ zoneOfPoint pnZoneSize p

 snailAround :: Int2 -> [Int2]
-snailAround x = fmap (x+) $ smallSnailInt2
+snailAround x = (x+) <$> smallSnailInt2

 smallSnailInt2 :: [Int2]
 smallSnailInt2 = sortOn (distance (V2 0 (0::Float)) . fmap fromIntegral)