Fix bug in intersectCircSeg

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