Cleanup

src/Dodge/EnergyBall/Draw.hs

@@ -1,11 +1,11 @@
-module Dodge.EnergyBall.Draw ( drawEnergyBall) where
+module Dodge.EnergyBall.Draw (drawEnergyBall) where
 
 import Dodge.Data.EnergyBall
 import Geometry
 import Picture
 
 drawEnergyBall :: EnergyBall -> Picture
-drawEnergyBall eb = case _ebEff eb of
+drawEnergyBall eb = case _ebType eb of
     FlameletBall x a -> drawFlamelet x a eb
     IncendiaryBall -> drawFlamelet 5 0 eb
     ElectricalBall{} -> drawStaticBall eb
@@ -20,7 +20,7 @@ drawExplosiveBall eb =
         . color white
         $ thickCircle r x
   where
-    x = 1 + 3 * (1 - (1-y**2))
+    x = 1 + 3 * (1 - (1 - y ** 2))
     r = 15 - (12 * y)
     y = fromIntegral (_ebTimer eb - 10) / 10