Attempt to make CWorld correct instance of Store

src/Dodge/Data/ForegroundShape.hs

@@ -3,11 +3,14 @@
 
 module Dodge.Data.ForegroundShape where
 
+import LinearHelp
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry
 import ShapePicture
+import TH.Derive
+import Data.Store
 
 data ForegroundShape = ForegroundShape
     { _fsID :: Int
@@ -20,3 +23,4 @@ data ForegroundShape = ForegroundShape
 
 makeLenses ''ForegroundShape
 deriveJSON defaultOptions ''ForegroundShape
+$($(derive [d| instance Deriving (Store ForegroundShape) |]))