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
@@ -3,10 +3,13 @@

 module Dodge.Data.Creature.Stance where

+import LinearHelp
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
+import TH.Derive
+import Data.Store

 data Stance = Stance
    { _carriage :: Carriage
@@ -45,3 +48,7 @@ deriveJSON defaultOptions ''Stance
 deriveJSON defaultOptions ''Carriage
 deriveJSON defaultOptions ''FootForward
 deriveJSON defaultOptions ''Posture
+$($(derive [d| instance Deriving (Store Stance) |]))
+$($(derive [d| instance Deriving (Store Carriage) |]))
+$($(derive [d| instance Deriving (Store FootForward) |]))
+$($(derive [d| instance Deriving (Store Posture) |]))