Delete cruft, add Reader monad to some internal ai

2021-05-16 21:42:11 +02:00
parent 0798cc0b0e
commit d7fcdbf550
69 changed files with 721 additions and 2894 deletions
@@ -72,7 +72,7 @@ mvShockwave is w pt
    t    = _btTimer' pt
    tFraction = fromIntegral t / fromIntegral (_btMaxTime' pt)
    rad = r - (3/4) * r * tFraction
-    dams = over creatures (IM.map damCr) . flip (foldr damageBlocks) hitBlocks
+    dams = over creatures (IM.map damCr) . flip (IM.foldr damageBlocks) hitBlocks
    hitBlocks = wallsOnCirc p rad $ wallsNearPoint p w 
    damageBlocks wall w
      = case wall ^? blHP of