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 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Hammer
 import Sound.Data
+import TH.Derive
+import Data.Store

 data LoadAction
    = LoadEject {_actionTime :: Int, _actionSound :: SoundID}
@@ -30,3 +32,6 @@ makeLenses ''InvSelAction
 deriveJSON defaultOptions ''LoadAction
 deriveJSON defaultOptions ''InvSel
 deriveJSON defaultOptions ''InvSelAction
+$($(derive [d| instance Deriving (Store LoadAction) |]))
+$($(derive [d| instance Deriving (Store InvSel) |]))
+$($(derive [d| instance Deriving (Store InvSelAction) |]))