Attempt to make CWorld correct instance of Store

2022-08-20 15:53:37 +01:00
parent e1a555ea02
commit 8571ab9254
89 changed files with 570 additions and 19 deletions
@@ -10,7 +10,10 @@ module Dodge.Data.Damage (
    module Dodge.Data.Damage.Type,
 ) where

+import LinearHelp
 import Control.Lens
+import TH.Derive
+import Data.Store
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Damage.Type
@@ -52,3 +55,5 @@ makeLenses ''Damage
 makeLenses ''DamageEffect
 deriveJSON defaultOptions ''DamageEffect
 deriveJSON defaultOptions ''Damage
+$($(derive [d| instance Deriving (Store DamageEffect) |]))
+$($(derive [d| instance Deriving (Store Damage) |]))