Add generic derivations and To/FromJSON instances

src/Dodge/Data/Damage.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 {- 
@@ -8,6 +9,8 @@ module Dodge.Data.Damage
     ( module Dodge.Data.Damage
     , module Dodge.Data.Damage.Type
     ) where
+import GHC.Generics
+import Data.Aeson
 import Dodge.Data.Damage.Type
 import Geometry.Data
 import Control.Lens
@@ -20,14 +23,19 @@ data DamageEffect
     | TorqueDamage { _deTorque :: Float }
     | PushBackDamage {_dePushBack :: Float }
     | NoDamageEffect
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON DamageEffect where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON DamageEffect
 data Damage = Damage 
     { _dmType :: DamageType
     , _dmAmount :: Int , _dmFrom :: Point2 , _dmAt :: Point2 , _dmTo :: Point2 
     , _dmEffect :: DamageEffect
     }
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON Damage  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON Damage 
 isElectrical :: Damage -> Bool
 isElectrical dm = case _dmType dm of
     ELECTRICAL -> True