Refactor creature zoning

src/Dodge/Update/Cloud.hs

@@ -1,15 +1,17 @@
 module Dodge.Update.Cloud where
+import Dodge.Zoning.Creature
 import Dodge.Data
 import Dodge.Zone
 import Geometry.Vector3D
 import LensHelp
 import StreamingHelp
 import qualified Streaming.Prelude as S
+import Data.Foldable
 cloudPoisonDamage :: Cloud -> World -> World
-cloudPoisonDamage c w = w & dodamagesto (S.filter f $ crsNearPoint clpos w)
+cloudPoisonDamage c w = w & dodamagesto (filter f $ crsNearPoint clpos w)
   where 
-    dodamagesto :: StreamOf Creature -> World -> World
-    dodamagesto scrs mcrs = runIdentity $ S.fold_ (flip doDam) mcrs id scrs
+    dodamagesto :: [Creature] -> World -> World
+    dodamagesto scrs mcrs = foldl' (flip doDam) mcrs scrs
     doDam cr = creatures . ix (_crID cr) . crState . csDamage 
         .:~ Damage POISONDAM 1 clpos clpos clpos NoDamageEffect
     f cr = dist3 (addZ 20 $ _crPos cr) (_clPos c) < _crRad cr + _clRad c + 10