Various performance improvements

src/Dodge/WorldEvent/ThingsHit.hs

@@ -2,6 +2,11 @@
 Find which objects lie upon a line.
  -}
 module Dodge.WorldEvent.ThingsHit
+    ( thingsHit
+    , thingsHitLongLine
+    , thingsHitExceptCr
+    , thingsHitExceptCrLongLine
+    )
     where
 import Dodge.Data
 import Dodge.Base
@@ -80,7 +85,3 @@ thingsHitLongLine sp ep w
     hitPoint wl = uncurry (intersectSegSeg sp ep) (_wlLine wl)
     hitFFs = mapMaybe (collidePointFF sp ep (_randGen w)) (IM.elems $ _forceFields w)
     ffs = map (\(p,(_,i)) -> (p, E3x3 $ _forceFields w IM.! i)) hitFFs
-
-thingsHitOnPath :: [Point2] -> World -> [ [ ( Point2, Either3 Creature Wall ForceField ) ] ]
-thingsHitOnPath [] _ = error "tried to find thingsHitOnPath containing no points"
-thingsHitOnPath ps w = zipWith (\ a b -> thingsHit a b w) ps $ tail ps