Add basic booster

src/Dodge/Particle/Bullet/Spawn.hs

@@ -10,15 +10,14 @@ import Control.Lens
 
 aGenBulAt
     :: Maybe Int -- ^ Pass-through creature id
-    -> Color    
     -> Point2   -- ^ Start position
      -> Point2  -- ^ Velocity
     -> HitEffect 
     -> Float    -- ^ Bullet width
     -> Particle
-aGenBulAt maycid _ pos vel hiteff width = Bul'
+aGenBulAt maycid pos vel hiteff width = Bul'
     { _ptDraw = drawBul
-    , _ptUpdate' = mvGenBullet'
+    , _ptUpdate' = mvGenBullet
     , _btVel' = vel
     , _btColor' = white
     , _btTrail' = [pos]
@@ -39,7 +38,7 @@ aCurveBulAt
     -> Particle
 aCurveBulAt maycid col pos control targ hiteff width = Bul'
     { _ptDraw = drawBul
-    , _ptUpdate' = \w -> mvGenBullet' w . setVel
+    , _ptUpdate' = \w -> mvGenBullet w . setVel
     , _btVel' = (0,0)
     , _btColor' = col
     , _btTrail' = [pos]