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
@@ -5,6 +5,8 @@ module Dodge.Data.Equipment.Misc where

 import Data.Aeson
 import Data.Aeson.TH
+import TH.Derive
+import Data.Store

 data EquipSite
    = GoesOnHead
@@ -31,3 +33,5 @@ instance FromJSONKey EquipPosition

 deriveJSON defaultOptions ''EquipSite
 deriveJSON defaultOptions ''EquipPosition
+$($(derive [d| instance Deriving (Store EquipSite) |]))
+$($(derive [d| instance Deriving (Store EquipPosition) |]))