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,11 +3,14 @@

 module Picture.Data where

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

 data Verx = Verx
    { _vxPos :: !Point3
@@ -88,3 +91,6 @@ makeLenses ''Verx
 deriveJSON defaultOptions ''Verx
 deriveJSON defaultOptions ''Layer
 deriveJSON defaultOptions ''ShadNum
+$($(derive [d| instance Deriving (Store Verx) |]))
+$($(derive [d| instance Deriving (Store Layer) |]))
+$($(derive [d| instance Deriving (Store ShadNum) |]))