Attempt to make CWorld correct instance of Store

src/Dodge/Data/CreatureEffect.hs

@@ -5,17 +5,23 @@ module Dodge.Data.CreatureEffect where
 
 import Data.Aeson
 import Data.Aeson.TH
+import TH.Derive
+import Data.Store
 
 data WdCrCr = NoCreatureEffect
+    | HackWdCrCr
     deriving (Eq, Ord, Show, Read)
 
 data CrWdImp = NoCrWdImp
+    | HackCrWdImp
     deriving (Eq, Ord, Show, Read)
 
 data CrWdWd = CrWdWdId
+    | HackCrWdWd
     deriving (Eq, Ord, Show, Read)
 
 data IntImp = NoIntImp
+    | HackIntImp
     deriving (Eq, Ord, Show, Read)
 
 data CrImp
@@ -24,6 +30,7 @@ data CrImp
     deriving (Eq, Ord, Show, Read)
 
 data P2Imp = P2ImpNo
+    | HackP2Imp
     deriving (Eq, Ord, Show, Read)
 
 data WdCrBl
@@ -42,6 +49,7 @@ data CrBl
     deriving (Eq, Ord, Show, Read)
 
 data MCrAc = MCrNoAction
+    | HackMCrAc
     deriving (Eq, Ord, Show, Read)
 
 data CrAc
@@ -50,9 +58,11 @@ data CrAc
     deriving (Eq, Ord, Show, Read)
 
 data P2Ac = P2NoAction
+    | HackP2Ac
     deriving (Eq, Ord, Show, Read)
 
 data MP2Ac = MP2NoAction
+    | HackMP2Ac
     deriving (Eq, Ord, Show, Read)
 
 data CrWdAc
@@ -74,3 +84,16 @@ deriveJSON defaultOptions ''CrAc
 deriveJSON defaultOptions ''P2Ac
 deriveJSON defaultOptions ''MP2Ac
 deriveJSON defaultOptions ''CrWdAc
+$($(derive [d| instance Deriving (Store WdCrCr) |]))
+$($(derive [d| instance Deriving (Store CrWdImp) |]))
+$($(derive [d| instance Deriving (Store CrWdWd) |]))
+$($(derive [d| instance Deriving (Store IntImp) |]))
+$($(derive [d| instance Deriving (Store CrImp) |]))
+$($(derive [d| instance Deriving (Store P2Imp) |]))
+$($(derive [d| instance Deriving (Store WdCrBl) |]))
+$($(derive [d| instance Deriving (Store CrBl) |]))
+$($(derive [d| instance Deriving (Store MCrAc) |]))
+$($(derive [d| instance Deriving (Store CrAc) |]))
+$($(derive [d| instance Deriving (Store P2Ac) |]))
+$($(derive [d| instance Deriving (Store MP2Ac) |]))
+$($(derive [d| instance Deriving (Store CrWdAc) |]))