Move from store to flat

src/Dodge/Data/CreatureEffect.hs

@@ -1,37 +1,33 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE DeriveAnyClass #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
 module Dodge.Data.CreatureEffect where
 
+import Flat
 import Data.Aeson
 import Data.Aeson.TH
-import TH.Derive
-import Data.Store
 
 data WdCrCr = NoCreatureEffect
-    | HackWdCrCr
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data CrWdImp = NoCrWdImp
-    | HackCrWdImp
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data CrWdWd = CrWdWdId
-    | HackCrWdWd
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data IntImp = NoIntImp
-    | HackIntImp
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data CrImp
     = NoCrImp
     | TurnTowardCr Float -- turn amount
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data P2Imp = P2ImpNo
-    | HackP2Imp
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data WdCrBl
     = WdCrTrue
@@ -39,37 +35,34 @@ data WdCrBl
     | WdCrNegate WdCrBl
     | WdCrLOSTarget
     | WdCrSafeDistFromTarget Float
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data CrBl
     = CrCanShoot
     | CrIsReloading
     | CrIsAiming
     | CrIsAnimate
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data MCrAc = MCrNoAction
-    | HackMCrAc
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data CrAc
     = CrTurnAround
     | CrFleeFromTarget
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data P2Ac = P2NoAction
-    | HackP2Ac
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data MP2Ac = MP2NoAction
-    | HackMP2Ac
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data CrWdAc
     = CrWdBFSThenReturn Int
     | ChooseMovementSpreadGun
     | ChooseMovementLtAuto
-    deriving (Eq, Ord, Show, Read)
+    deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 deriveJSON defaultOptions ''WdCrCr
 deriveJSON defaultOptions ''CrWdImp
@@ -84,16 +77,3 @@ 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) |]))