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

+import TH.Derive
+import Data.Store
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -48,3 +50,6 @@ makeLenses ''ItAmount
 deriveJSON defaultOptions ''HeldConsumption
 deriveJSON defaultOptions ''LeftConsumption
 deriveJSON defaultOptions ''ItAmount
+$($(derive [d| instance Deriving (Store HeldConsumption) |]))
+$($(derive [d| instance Deriving (Store LeftConsumption) |]))
+$($(derive [d| instance Deriving (Store ItAmount) |]))