Go back to JSON encoding

src/Dodge/Data/Damage.hs

@@ -12,9 +12,6 @@ module Dodge.Data.Damage (
     module Dodge.Data.Damage.Type,
 ) where
 
-import TH.Derive
-import Data.Store
-import Data.Binary
 import Flat
 import LinearHelp ()
 import Control.Lens
@@ -33,7 +30,6 @@ data DamageEffect
     | PushBackDamage {_dePushBack :: Float}
     | NoDamageEffect
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store DamageEffect) |]))
 
 data Damage = Damage
     { _dmType :: DamageType
@@ -44,7 +40,6 @@ data Damage = Damage
     , _dmEffect :: DamageEffect
     }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-$($(derive [d| instance Deriving (Store Damage ) |]))
 
 isElectrical :: Damage -> Bool
 isElectrical dm = case _dmType dm of