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,6 +10,8 @@ import Data.Aeson.TH
 import qualified Data.IntSet as IS
 import Dodge.Data.Damage
 import Geometry.Data
+import TH.Derive
+import Data.Store

 data CreatureState = CrSt
    { _csDamage :: [Damage]
@@ -58,3 +60,8 @@ deriveJSON defaultOptions ''CreatureDropType
 deriveJSON defaultOptions ''CrSpState
 deriveJSON defaultOptions ''Faction
 deriveJSON defaultOptions ''CrGroup
+$($(derive [d| instance Deriving (Store CreatureState) |]))
+$($(derive [d| instance Deriving (Store CreatureDropType) |]))
+$($(derive [d| instance Deriving (Store CrSpState) |]))
+$($(derive [d| instance Deriving (Store Faction) |]))
+$($(derive [d| instance Deriving (Store CrGroup) |]))