Cleanup

2022-07-19 20:48:43 +01:00
parent 29e25f61d3
commit 6b398b4bb6
4 changed files with 1 additions and 34 deletions
@@ -1,14 +0,0 @@
-module Dodge.Particle.Update where
-import Dodge.Data
-import LensHelp
-
-mvPt' :: Particle -> Maybe Particle
-mvPt' pt = Just $ pt
-    & ptTimer -~ 1
-
-killParticleUpdate :: World -> Particle -> (World,Maybe Particle)
-killParticleUpdate w pt 
-    | _ptTimer pt <= 0 = (w,Nothing)
-    | otherwise = (w
-        , Just $ pt & ptTimer -~ 1
-        )