Add Read instances

2022-07-22 01:06:35 +01:00
parent d4e5b02874
commit 4c5218c633
44 changed files with 209 additions and 126 deletions
@@ -20,14 +20,14 @@ data DamageEffect
    | TorqueDamage { _deTorque :: Float }
    | PushBackDamage {_dePushBack :: Float }
    | NoDamageEffect
-  deriving (Eq,Ord,Show)
+  deriving (Eq,Ord,Show,Read)

 data Damage = Damage 
    { _dmType :: DamageType
    , _dmAmount :: Int , _dmFrom :: Point2 , _dmAt :: Point2 , _dmTo :: Point2 
    , _dmEffect :: DamageEffect
    }
-  deriving (Eq,Ord,Show)
+  deriving (Eq,Ord,Show,Read)
 isElectrical :: Damage -> Bool
 isElectrical dm = case _dmType dm of
    ELECTRICAL -> True