Attempt to make CWorld correct instance of Store

src/Geometry/ConvexPoly.hs

@@ -11,6 +11,7 @@ module Geometry.ConvexPoly
     , convexPolysOverlap
     , pointInPolyPoints
     ) where
+import LinearHelp
 import GHC.Generics
 import Data.Aeson
 import Geometry.Data
@@ -20,6 +21,8 @@ import Geometry.Intersect
 import Geometry.Polygon
 
 import Control.Lens
+import TH.Derive
+import Data.Store
 --import qualified Control.Foldl as L
 data ConvexPoly = ConvexPoly
     { _cpPoints :: [Point2]
@@ -78,3 +81,4 @@ pairPolyPointsIntersect _ _ _ = False
 
 
 makeLenses ''ConvexPoly
+$($(derive [d| instance Deriving (Store ConvexPoly) |]))