Fix bug in intersectCircSeg

src/Dodge/Particle/Bullet/HitEffect.hs

@@ -71,14 +71,13 @@ bulPenCr' bt p cr w
             ++
            )
     $ bulletHitSound ep
-    $ over worldEvents (addPiercer . )
+    $ over instantParticles (piercer :)
     w
   where 
     (d1,_)  = randomR (-0.7,0.7) $ _randGen w
     cid = _crID cr
     sp = head $ _btTrail' bt
     ep = sp +.+ _ptVel bt
-    addPiercer = over particles (piercer :)
     piercer = (aGenBulAt (Just cid) p (_ptVel bt) (_btDrag bt)
                                       (_btHitEffect' bt) (_btWidth' bt)
               ) {_btTimer' = _btTimer' bt - 1}

src/Dodge/Particle/Spark.hs

@@ -1,6 +1,6 @@
 module Dodge.Particle.Spark
     ( colSpark
-    , colSpark'
+    , colSparkRandDir
     , createBarrelSpark
     )
     where
@@ -34,9 +34,9 @@ createBarrelSpark pos dir maycid time colid = instantParticles .:~ BulletPt
         sp = head (_btTrail' bt)
         ep = sp +.+ _ptVel bt
 colSpark :: Int -> Color -> Point2 -> Float -> World -> World
-colSpark = colSpark' 0.7
-colSpark' :: Float -> Int -> Color -> Point2 -> Float -> World -> World
-colSpark' randDir time col pos baseDir w = w 
+colSpark = colSparkRandDir 0.7
+colSparkRandDir :: Float -> Int -> Color -> Point2 -> Float -> World -> World
+colSparkRandDir randDir time col pos baseDir w = w 
     & instantParticles .:~ spark
     & randGen .~ g
   where