Cleanup terminal display

src/Dodge/Data.hs

@@ -148,8 +148,8 @@ data World = World
 newtype GenParams = GenParams
     { _sensorCoding :: M.Map DamageType (PaletteColor,DecorationShape)
     }
-data DecorationShape = PlusDecoration | SquareDecoration | CircleDecoration | ThreeLineDecoration
-  deriving (Eq,Ord,Enum,Show)
+data DecorationShape = PLUS | SQUARE | CIRCLE | THREELINES
+  deriving (Eq,Ord,Enum,Show,Read)
 
 data HUDElement 
     = DisplayInventory {_subInventory :: SubInventory}
@@ -1324,13 +1324,13 @@ data Damage = Damage
 
 isElectrical :: Damage -> Bool
 isElectrical dm = case _dmType dm of
-    Electrical{} -> True
+    ELECTRICAL -> True
     _ -> False
 
 isMovementDam :: Damage -> Bool
 isMovementDam dm = case _dmType dm of
-    TorqueDam{} -> True
-    PushDam{} -> True
+    TORQUEDAM -> True
+    PUSHDAM -> True
     _ -> False
 
 data CreatureState = CrSt