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
@@ -7,6 +7,8 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.CamouflageStatus
 import Dodge.Data.Item.Combine
+import TH.Derive
+import Data.Store

 data HeldUse
    = HeldDoNothing
@@ -94,3 +96,8 @@ deriveJSON defaultOptions ''HeldMod
 deriveJSON defaultOptions ''Euse
 deriveJSON defaultOptions ''HeldUse
 deriveJSON defaultOptions ''Luse
+$($(derive [d| instance Deriving (Store Cuse) |]))
+$($(derive [d| instance Deriving (Store HeldMod) |]))
+$($(derive [d| instance Deriving (Store Euse) |]))
+$($(derive [d| instance Deriving (Store HeldUse) |]))
+$($(derive [d| instance Deriving (Store Luse) |]))