Add ItEffect data as parameter to the effect itself

2021-05-24 21:37:42 +02:00
parent 38682049c4
commit a7d4d8911d
12 changed files with 109 additions and 59 deletions
@@ -108,7 +108,7 @@ updateLightSources w = set tempLightSources (catMaybes tlss) w'
    (w',tlss) = mapAccumR (\a b -> _tlsUpdate b a b) w $ _tempLightSources w

 updateProjectiles :: World -> World
-updateProjectiles w = IM.foldr' _pjUpdate w $ _projectiles w
+updateProjectiles w = IM.foldr' (dbArg _pjUpdate) w $ _projectiles w
 {-
 Apply internal particle updates, delete 'Nothing's.  -}
 updateParticles :: World -> World