Add Store instances

2022-08-21 12:21:05 +01:00
parent 1ce7d4a72d
commit dd62e30026
92 changed files with 465 additions and 255 deletions
@@ -12,6 +12,8 @@ module Dodge.Data.Damage (
    module Dodge.Data.Damage.Type,
 ) where

+import TH.Derive
+import Data.Store
 import Data.Binary
 import Flat
 import LinearHelp ()
@@ -31,7 +33,7 @@ data DamageEffect
    | PushBackDamage {_dePushBack :: Float}
    | NoDamageEffect
    deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary DamageEffect
+$($(derive [d| instance Deriving (Store DamageEffect) |]))

 data Damage = Damage
    { _dmType :: DamageType
@@ -42,7 +44,7 @@ data Damage = Damage
    , _dmEffect :: DamageEffect
    }
    deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary Damage 
+$($(derive [d| instance Deriving (Store Damage ) |]))

 isElectrical :: Damage -> Bool
 isElectrical dm = case _dmType dm of