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
@@ -6,6 +6,8 @@ module Dodge.Data.SoundOrigin where
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Material
+import TH.Derive
+import Data.Store

 data SoundOrigin
    = InventorySound
@@ -40,3 +42,4 @@ instance ToJSONKey SoundOrigin
 instance FromJSONKey SoundOrigin

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