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,9 @@ import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.CrWlID
 import Geometry.Data
+import TH.Derive
+import Data.Store
+import LinearHelp

 data ArcStep = ArcStep
    { _asPos :: Point2
@@ -24,3 +27,5 @@ data NextArcStep
 makeLenses ''ArcStep
 deriveJSON defaultOptions ''ArcStep
 deriveJSON defaultOptions ''NextArcStep
+$($(derive [d| instance Deriving (Store ArcStep) |]))
+$($(derive [d| instance Deriving (Store NextArcStep) |]))