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
@@ -9,6 +9,8 @@ import Data.Aeson
 import Data.Aeson.TH
 import qualified Data.Map.Strict as M
 import Dodge.Data.Damage.Type
+import TH.Derive
+import Data.Store

 newtype GenParams = GenParams
    { _sensorCoding :: M.Map DamageType (PaletteColor, DecorationShape)
@@ -21,3 +23,5 @@ data DecorationShape = PLUS | SQUARE | CIRCLE | THREELINES
 makeLenses ''GenParams
 deriveJSON defaultOptions ''GenParams
 deriveJSON defaultOptions ''DecorationShape
+$($(derive [d| instance Deriving (Store GenParams) |]))
+$($(derive [d| instance Deriving (Store DecorationShape) |]))