Cleanup barrels

src/Dodge/Shockwave/Update.hs

@@ -1,8 +1,8 @@
-module Dodge.Shockwave.Update where
+module Dodge.Shockwave.Update (updateShockwave) where
 
-import Dodge.Creature.Radius
 import Data.Foldable
 import Dodge.Base.Collide
+import Dodge.Creature.Radius
 import Dodge.Data.World
 import Dodge.Wall.Damage
 import Dodge.Zoning.Wall
@@ -40,9 +40,10 @@ moveShockwave w sw
         | otherwise =
             cr & crState . csDamage
                 .:~ Explosive dam p
-      --where
-      --  cpos = _crPos cr
-      --  v = normalizeV (cpos -.- p)
+
+--where
+--  cpos = _crPos cr
+--  v = normalizeV (cpos -.- p)
 
 moveInverseShockwave ::
     World ->
@@ -63,6 +64,7 @@ moveInverseShockwave w sw
         | otherwise =
             cr & crState . csDamage
                 .:~ Explosive 1 p
-      --where
-      --  cpos = _crPos cr
-      --  v = normalizeV (cpos -.- p)
+
+--where
+--  cpos = _crPos cr
+--  v = normalizeV (cpos -.- p)