Cleanup

src/Dodge/Wall/Damage.hs

@@ -20,7 +20,7 @@ damageWall dt wl (is,w) = case _wlStructure wl of
     DoorPart drid ->
         f $ w' & cWorld . lWorld . doors . ix drid . drHP -~ dmam
 --            & maybeDestroyDoor drid
-    _ -> f $ w'
+    _ -> f w'
   where
     f = (,) is
 --    x = case dt of

src/Dodge/Wall/Move.hs

@@ -1,4 +1,4 @@
-{-# LANGUAGE BangPatterns #-}
+--{-# LANGUAGE BangPatterns #-}
 
 module Dodge.Wall.Move (
     moveWallID,