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
@@ -12,6 +12,8 @@ import Geometry.Data
 import qualified Quaternion as Q
 import Shape.Data
 import ShapePicture.Data
+import TH.Derive
+import Data.Store

 data Prop
    = PropZ
@@ -75,3 +77,7 @@ deriveJSON defaultOptions ''PropDraw
 deriveJSON defaultOptions ''PropUpdate
 deriveJSON defaultOptions ''PrWdLsLs
 deriveJSON defaultOptions ''Prop
+$($(derive [d| instance Deriving (Store PropDraw) |]))
+$($(derive [d| instance Deriving (Store PropUpdate) |]))
+$($(derive [d| instance Deriving (Store PrWdLsLs) |]))
+$($(derive [d| instance Deriving (Store Prop) |]))