Go back to JSON encoding

src/Dodge/Data/CreatureEffect.hs

@@ -5,40 +5,28 @@
 
 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)
 
 data CrWdImp = NoCrWdImp
-    | HackCrWdImp
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store CrWdImp ) |]))
 
 data CrWdWd = CrWdWdId
-    | HackCrWdWd
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store CrWdWd ) |]))
 
 data IntImp = NoIntImp
-    | HackNoIntImp
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store IntImp ) |]))
 
 data CrImp
     = NoCrImp
     | TurnTowardCr Float -- turn amount
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store CrImp) |]))
 
 data P2Imp = P2ImpNo
-    | HackP2ImpNo
     deriving (Eq, Ord, Show, Read, Generic, Flat)
 
 data WdCrBl
@@ -55,35 +43,26 @@ data CrBl
     | CrIsAiming
     | CrIsAnimate
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store CrBl) |]))
 
 data MCrAc = MCrNoAction
-    | HackMCrAc
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store MCrAc ) |]))
 
 data CrAc
     = CrTurnAround
     | CrFleeFromTarget
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store CrAc) |]))
 
 data P2Ac = P2NoAction
-    | HackP2Ac
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store P2Ac ) |]))
 
 data MP2Ac = MP2NoAction
-    | HackMP2Ac
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store MP2Ac ) |]))
 
 data CrWdAc
     = CrWdBFSThenReturn Int
     | ChooseMovementSpreadGun
     | ChooseMovementLtAuto
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store CrWdAc) |]))
 
 deriveJSON defaultOptions ''WdCrCr
 deriveJSON defaultOptions ''CrWdImp
@@ -98,6 +77,3 @@ 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 ) |]))