Narrow down non-termination to thingsHit[LongLine]

src/Dodge/Item/Weapon/Bullet.hs

@@ -22,15 +22,14 @@ bulHitCr' :: Particle' -> Point2 -> Creature -> World -> World
 bulHitCr' bt p cr w = 
             let sp = head $ _btTrail' bt
                 ep = sp +.+ _btVel' bt
-               -- mvDams = [TorqueDam 1 d1 , PushDam 1 $ 2 *.* (ep -.- sp) ]
-                mvDams = [ PushDam 1 $ 2 *.* (ep -.- sp) ]
+                mvDams = [ PushDam 1 $ 2 *.* bulVel ]
                 addDamage = over (creatures . ix cid . crState . crDamage)
                                     (\dams -> (Piercing 100 sp p ep : mvDams) ++ dams)
                 addDamageArmoured = over (creatures . ix cid . crState . crDamage)
                                     (\dams -> mvDams ++ dams)
                 hitSound = soundMultiFrom [CrHitSound 0] 15 10 0
                 flashEff = over worldEvents ((.) $ flareAt red p)
-                bulVel = ep -.- sp
+                bulVel = _btVel' bt
                 ck cid  = (+.+) (crKnockBack cid *.* bulVel)
                 crKnockBack cid = (/) 1 $ (+) 2 $ _crMass $ _creatures w IM.! cid
                 hasArmour cr = any (\it -> it ^? itIdentity == Just FrontArmour) $ _crInv cr
@@ -38,7 +37,10 @@ bulHitCr' bt p cr w =
                 sID     = newParticleKey w
                 (d1,g)  = randomR (-0.7,0.7) $ _randGen w
                 (colID,_) = randomR (0,11) $ _randGen w
-                hitEffect = addDamage . hitSound . flashEff $ w
+                hitEffect = addDamage 
+                            . hitSound 
+                            . flashEff 
+                            $ w
             in case hasArmour cr of  --shit this is ugly, to refactor
                     True -> if hitBack
                                         then hitEffect