Cleanup

src/Dodge/Particle/Spark.hs

@@ -6,7 +6,6 @@ module Dodge.Particle.Spark
     ) where
 import Dodge.Data
 import Dodge.Particle.HitEffect.ExpireAndDamage
-import Dodge.Particle.Bullet.Draw
 import Dodge.Particle.Damage
 --import Dodge.Particle.Bullet.HitEffect
 import Dodge.Particle.Bullet.Update
@@ -21,8 +20,7 @@ import System.Random
 -- TODO remove/simplify this function
 createBarrelSpark :: Point2 -> Float -> Maybe Int -> Int -> Int -> World -> World
 createBarrelSpark pos dir maycid time colid = instantParticles .:~ BulletPt  
-    { _ptDraw = drawBul
-    , _ptUpdate = mvBullet
+    { _ptUpdate = mvBullet
     , _ptVel = rotateV dir (V2 5 0)
     , _btDrag = 0.9
     , _ptColor = numColor colid
@@ -52,8 +50,7 @@ randColDirTimeSpark randcol randdir randtime pos w = w
         t <- randtime
         return (c,d,t)
     spark = BulletPt
-        { _ptDraw   = drawBul
-        , _ptUpdate = mvBullet
+        { _ptUpdate = mvBullet
         , _btDrag   = 0.9
         , _ptVel    = rotateV dir (V2 5 0)
         , _ptColor  = col
@@ -72,9 +69,7 @@ colSparkRandDir randDir time col pos baseDir w = w
     (a,g)  = randomR (-randDir,randDir) $ _randGen w
     dir = a + baseDir
     spark = BulletPt
-        { _ptDraw = drawBul
-        --{ _ptDraw = const mempty
-        , _ptUpdate = mvBullet
+        { _ptUpdate = mvBullet
         , _btDrag   = 0.9
         , _ptVel = rotateV dir (V2 5 0)
         , _ptColor = col