Refactor creature zoning

src/Dodge/DamageCircle.hs

@@ -6,6 +6,7 @@ import Dodge.WorldEvent.ThingsHit
 import Geometry
 import LensHelp
 
+import Data.Foldable
 import qualified Streaming.Prelude as S
 import qualified IntMapHelp as IM
 damageCircle :: Float -> Point2 -> DamageType -> Int -> World -> World
@@ -16,7 +17,7 @@ damageCircle r sp dt da w = w
     addwalldamages wlds = runIdentity $ S.fold_ (damageWlCircle wldam) wlds id wlstodam
     wlstodam = wlsHitRadial sp r w
     wldam p = Damage dt da sp p (sp +.+ r *.* normalizeV (p -.- sp)) NoDamageEffect
-    addcreaturedamages crs = runIdentity $ S.fold_ (damageCrCircle crdam) crs id crstodam
+    addcreaturedamages crs = foldl' (damageCrCircle crdam) crs crstodam
     crdam p cr = Damage dt da sp p (_crPos cr) NoDamageEffect
     crstodam = crsHitRadial sp r w