Refactor inverse shockwave

2021-09-26 12:09:44 +01:00
parent a823d4c6df
commit 79b2692199
15 changed files with 87 additions and 94 deletions
@@ -6,4 +6,4 @@ import Dodge.Data
 {- A simple timer update for particles.  -}
 ptTimer' :: Int -> World -> Particle -> (World, Maybe Particle)
 ptTimer' 0 w _ = (w, Nothing)
-ptTimer' n w pt = (w, Just $ pt {_ptUpdate' = ptTimer' (n-1)})
+ptTimer' n w pt = (w, Just $ pt {_ptUpdate = ptTimer' (n-1)})