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
@@ -8,6 +8,8 @@ import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry
+import TH.Derive
+import Data.Store

 data CloudDraw
    = CloudColor Float Float Color -- radius-multiply fade-time color
@@ -34,3 +36,6 @@ makeLenses ''Cloud
 deriveJSON defaultOptions ''CloudDraw
 deriveJSON defaultOptions ''Cloud
 deriveJSON defaultOptions ''CloudType
+$($(derive [d| instance Deriving (Store CloudDraw) |]))
+$($(derive [d| instance Deriving (Store Cloud) |]))
+$($(derive [d| instance Deriving (Store CloudType) |]))