Cleanup

2022-07-24 00:23:03 +01:00
parent 5b9e9968f3
commit 5a2f529182
6 changed files with 12 additions and 37 deletions
@@ -380,17 +380,7 @@ data WorldBeams = WorldBeams
 {- Objects without ids.
 Update themselves, perhaps with side effects.  -}
 data Particle
-    = PtInvShockwave
-        { _ptUpdate     :: World -> Particle -> (World, Maybe Particle)
-        , _ptColor      :: Color
-        , _ptPos        :: Point2
-        , _ptRad        :: Float
-        , _ptDam        :: Int
-        , _ptPush       :: Float
-        , _ptMaxTime    :: Int
-        , _ptTimer      :: Int
-        }
-    | ShockLine 
+    = ShockLine 
        { _ptUpdate :: World -> Particle -> (World, Maybe Particle)
        , _ptPointDirs :: [[(Point2,Float)]]
        , _ptTimer :: Int