Work on what happens when creatures fall down chasms

src/Dodge/EnergyBall.hs

@@ -6,28 +6,27 @@ module Dodge.EnergyBall (
     makeMovingEB,
 ) where
 
-import Dodge.Damage
 import Data.Maybe
 import Dodge.Base.Collide
+import Dodge.Damage
 import Dodge.Data.World
 import Dodge.SoundLogic
 import Dodge.Spark
 import Geometry
 import LensHelp
+import Linear.V3
 import Picture
 import RandomHelp
-import Linear.V3
 
 makeFlamelet :: Point3 -> Point3 -> Float -> Int -> World -> World
-makeFlamelet p v s t w =
-    w
-        & cWorld . lWorld . energyBalls
-            .:~ EnergyBall
-                { _ebVel = v
-                , _ebPos = p
-                , _ebTimer = t
-                , _ebType = FlameletBall s
-                }
+makeFlamelet p v s t =
+    cWorld . lWorld . energyBalls
+        .:~ EnergyBall
+            { _ebVel = v
+            , _ebPos = p
+            , _ebTimer = t
+            , _ebType = FlameletBall s
+            }
 
 updateEnergyBall :: World -> EnergyBall -> (World, Maybe EnergyBall)
 updateEnergyBall w eb