Refactor inverse shockwave

2021-09-26 12:09:44 +01:00
parent a823d4c6df
commit 79b2692199
15 changed files with 87 additions and 94 deletions
@@ -129,7 +129,7 @@ Apply internal particle updates, delete 'Nothing's.  -}
 updateParticles :: World -> World
 updateParticles w = set particles (catMaybes ps) w'
  where 
-    (w',ps) = mapAccumR (\a b -> _ptUpdate' b a b) w $ _particles w
+    (w',ps) = mapAccumR (\a b -> _ptUpdate b a b) w $ _particles w

 -- Note that this updates the randgen
 updateCreatures :: World -> World