Cleanup terminal display

src/Dodge/Wall/Damage.hs

@@ -17,18 +17,18 @@ damageWall dt wl = case _wlStructure wl of
 
 damageBlockWith :: Damage -> Block -> Block
 damageBlockWith dm = case _dmType dm of
-    Piercing -> blHPs %~ reduceHead dam
-    Blunt    -> blHPs %~ reduceHead dam
-    Cutting  -> blHPs %~ reduceHead dam
-    Explosive -> blHPs %~ reduceHead dam
-    Concussive -> blHPs %~ reduceHead dam
-    Lasering {} -> id
-    SparkDam {} -> id
-    Flaming {} -> id
-    Electrical {} -> id
-    TorqueDam {} -> id
-    PushDam {} -> id
-    PoisonDam {} -> id
+    PIERCING    -> blHPs %~ reduceHead dam
+    BLUNT       -> blHPs %~ reduceHead dam
+    CUTTING     -> blHPs %~ reduceHead dam
+    EXPLOSIVE   -> blHPs %~ reduceHead dam
+    CONCUSSIVE  -> blHPs %~ reduceHead dam
+    LASERING    -> id
+    SPARKING    -> id
+    FLAMING     -> id
+    ELECTRICAL  -> id
+    TORQUEDAM   -> id
+    PUSHDAM     -> id
+    POISONDAM   -> id
   where
     dam = _dmAmount dm