Split out more data files

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -25,7 +25,6 @@ import LensHelp
 
 import Data.Foldable
 import Data.Tuple
-import StreamingHelp
 import qualified Streaming.Prelude as S
 aFlameParticle 
     :: Int      -- ^ Timer
@@ -190,19 +189,9 @@ makeGasCloud pos vel w = w
         , _clAlt = 25
         , _clTimer = 400
         , _clType = GasCloud
-        , _clEffect = cloudPoisonDamage
         }
     (col, g) = runState (takeOne [green,yellow]) $ _randGen w
 {- Attach poison cloud damage to creatures near cloud.  -}
-cloudPoisonDamage :: Cloud -> World -> World
-cloudPoisonDamage c w = w & dodamagesto (S.filter f $ crsNearPoint clpos w)
-  where 
-    dodamagesto :: StreamOf Creature -> World -> World
-    dodamagesto scrs mcrs = runIdentity $ S.fold_ (flip doDam) mcrs id 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
-    clpos = stripZ $ _clPos c
 
 incBall :: RandomGen g => Point2 -> State g Particle
 incBall p = do