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
@@ -15,6 +15,8 @@ module Dodge.Data.Item (
    module Dodge.Data.Item.Location,
 ) where

+import Data.Store
+import TH.Derive
 import Color
 import Control.Lens
 import Data.Aeson
@@ -54,3 +56,5 @@ _itUseAimStance = _aimStance . _heldAim . _itUse

 makeLenses ''Item
 deriveJSON defaultOptions ''Item
+
+$($(derive [d| instance Deriving (Store Item) |]))