Add generic derivations and To/FromJSON instances

src/Dodge/Data/CreatureEffect.hs

@@ -1,51 +1,81 @@
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE DeriveGeneric #-}
 module Dodge.Data.CreatureEffect where
-
+import GHC.Generics
+import Data.Aeson
 data WdCrCr = NoCreatureEffect
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON WdCrCr  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON WdCrCr 
 data CrWdImp = NoCrWdImp
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON CrWdImp  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON CrWdImp 
 data CrWdWd = CrWdWdId
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON CrWdWd  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON CrWdWd 
 data IntImp = NoIntImp
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON IntImp  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON IntImp 
 data CrImp = NoCrImp
     | TurnTowardCr Float -- turn amount
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON CrImp  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON CrImp 
 data P2Imp = P2ImpNo
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON P2Imp  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON P2Imp 
 data WdCrBl = WdCrTrue
     | WdCrBlfromCrBl CrBl
     | WdCrNegate WdCrBl
     | WdCrLOSTarget
     | WdCrSafeDistFromTarget Float
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON WdCrBl  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON WdCrBl 
 data CrBl = CrCanShoot
     | CrIsReloading
     | CrIsAiming
     | CrIsAnimate
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON CrBl  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON CrBl 
 data MCrAc = MCrNoAction
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON MCrAc  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON MCrAc 
 data CrAc = CrTurnAround
     | CrFleeFromTarget
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON CrAc  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON CrAc 
 data P2Ac = P2NoAction
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON P2Ac  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON P2Ac 
 data MP2Ac = MP2NoAction
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON MP2Ac  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON MP2Ac 
 data CrWdAc = CrWdBFSThenReturn Int
     | ChooseMovementSpreadGun
     | ChooseMovementLtAuto
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON CrWdAc  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON CrWdAc