Attempt to fix some space leaks, general cleanup

src/Dodge/Tesla/Arc.hs

@@ -3,6 +3,7 @@ module Dodge.Tesla.Arc
     , moveTeslaArc
     ) where
 
+import Data.Foldable
 import Dodge.Data.CrWlID
 import Dodge.Data.ArcStep
 import Data.Maybe
@@ -30,7 +31,7 @@ moveTeslaArc ::
     TeslaArc ->
     (World, Maybe TeslaArc)
 moveTeslaArc w pt
-    | _taTimer pt == 2 = (makesparks $ foldr damthings w thearc, Just $ pt & taTimer -~ 1)
+    | _taTimer pt == 2 = (makesparks $ foldl' (flip damthings) w thearc, Just $ pt & taTimer -~ 1)
     | _taTimer pt < 1 = (w, Nothing)
     | otherwise = (w, Just $ pt & taTimer -~ 1)
   where