Add Store instances

src/Dodge/Data/CreatureEffect.hs

@@ -5,36 +5,41 @@
 
 module Dodge.Data.CreatureEffect where
 
+import TH.Derive
+import Data.Store
 import Data.Binary
 import Flat
 import Data.Aeson
 import Data.Aeson.TH
 
 data WdCrCr = NoCreatureEffect
+    | HackWdCrCr
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary WdCrCr 
 
 data CrWdImp = NoCrWdImp
+    | HackCrWdImp
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary CrWdImp 
+$($(derive [d| instance Deriving (Store CrWdImp ) |]))
 
 data CrWdWd = CrWdWdId
+    | HackCrWdWd
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary CrWdWd 
+$($(derive [d| instance Deriving (Store CrWdWd ) |]))
 
 data IntImp = NoIntImp
+    | HackNoIntImp
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary IntImp 
+$($(derive [d| instance Deriving (Store IntImp ) |]))
 
 data CrImp
     = NoCrImp
     | TurnTowardCr Float -- turn amount
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary CrImp
+$($(derive [d| instance Deriving (Store CrImp) |]))
 
 data P2Imp = P2ImpNo
+    | HackP2ImpNo
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary P2Imp 
 
 data WdCrBl
     = WdCrTrue
@@ -43,7 +48,6 @@ data WdCrBl
     | WdCrLOSTarget
     | WdCrSafeDistFromTarget Float
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary WdCrBl
 
 data CrBl
     = CrCanShoot
@@ -51,32 +55,35 @@ data CrBl
     | CrIsAiming
     | CrIsAnimate
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary CrBl
+$($(derive [d| instance Deriving (Store CrBl) |]))
 
 data MCrAc = MCrNoAction
+    | HackMCrAc
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary MCrAc 
+$($(derive [d| instance Deriving (Store MCrAc ) |]))
 
 data CrAc
     = CrTurnAround
     | CrFleeFromTarget
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary CrAc
+$($(derive [d| instance Deriving (Store CrAc) |]))
 
 data P2Ac = P2NoAction
+    | HackP2Ac
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary P2Ac 
+$($(derive [d| instance Deriving (Store P2Ac ) |]))
 
 data MP2Ac = MP2NoAction
+    | HackMP2Ac
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary MP2Ac 
+$($(derive [d| instance Deriving (Store MP2Ac ) |]))
 
 data CrWdAc
     = CrWdBFSThenReturn Int
     | ChooseMovementSpreadGun
     | ChooseMovementLtAuto
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary CrWdAc
+$($(derive [d| instance Deriving (Store CrWdAc) |]))
 
 deriveJSON defaultOptions ''WdCrCr
 deriveJSON defaultOptions ''CrWdImp
@@ -91,3 +98,6 @@ deriveJSON defaultOptions ''CrAc
 deriveJSON defaultOptions ''P2Ac
 deriveJSON defaultOptions ''MP2Ac
 deriveJSON defaultOptions ''CrWdAc
+$($(derive [d| instance Deriving (Store P2Imp ) |]))
+$($(derive [d| instance Deriving (Store WdCrBl) |]))
+$($(derive [d| instance Deriving (Store WdCrCr ) |]))