Add generic derivations and To/FromJSON instances

2022-07-25 22:49:18 +01:00
parent f5604ef429
commit b8e8413daa
99 changed files with 1406 additions and 517 deletions
@@ -1,5 +1,8 @@
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.Damage.Type where
+import GHC.Generics
+import Data.Aeson
 data DamageType 
    = PIERCING 
    | BLUNT    
@@ -16,4 +19,9 @@ data DamageType
    | PUSHDAM   
    | POISONDAM 
    | ENTERREMENT
-  deriving (Eq,Ord,Show,Read,Enum,Bounded)
+  deriving (Eq,Ord,Show,Read,Enum,Bounded,Generic)
+instance ToJSON DamageType where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON DamageType 
+instance ToJSONKey DamageType
+instance FromJSONKey DamageType