Attempt to make CWorld correct instance of Store

src/Shape/Data.hs

@@ -6,11 +6,14 @@
 {-# LANGUAGE GeneralisedNewtypeDeriving #-}
 module Shape.Data
     where
+import LinearHelp
 import Geometry.Data
 import GHC.Generics
 import Data.Aeson
 import Control.Lens
 import Streaming
+import TH.Derive
+import Data.Store
 type Shape' = Stream (Of ShapeObj) IO ()
 type Shape = [ShapeObj]
 
@@ -47,3 +50,6 @@ pairToSV :: (Point3,Point4) -> ShapeV
 pairToSV = uncurry ShapeV
 makeLenses ''ShapeV
 makeLenses ''ShapeObj
+$($(derive [d| instance Deriving (Store ShapeV) |]))
+$($(derive [d| instance Deriving (Store ShapeObj) |]))
+$($(derive [d| instance Deriving (Store ShapeType) |]))