Refactor

src/Dodge/WorldEvent/SpawnParticle.hs

@@ -1,4 +1,4 @@
-{-
+{- |
 Creation of particles in the world.
  -}
 module Dodge.WorldEvent.SpawnParticle
@@ -26,6 +26,7 @@ import Control.Monad.State
 import Data.Function (on)
 import Data.List
 import Data.Maybe
+import Data.Tuple
 
 aFlameParticle 
     :: Int      -- ^ Timer
@@ -126,9 +127,8 @@ moveFlame rotd w pt
         , _btVel' = reflV wl
         }
     pOut p = p +.+ safeNormalizeV (sp -.- p)
-    reflV wall = (0.3 *.* reflectIn ((snd $ _wlLine wall) -.- (fst $ _wlLine wall)) vel )
-                    +.+
-                 (0.2 *.* vel)
+    reflV wall = (0.3 *.* reflectIn (uncurry (-.-) . swap $ _wlLine wall) vel )
+        +.+ (0.2 *.* vel)
     smokeGen = makeFlamerSmokeAt ep
 
 makeFlameletTimed