Attempt to make CWorld correct instance of Store

src/Dodge/Data/Gust.hs

@@ -3,10 +3,13 @@
 
 module Dodge.Data.Gust where
 
+import LinearHelp
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
+import TH.Derive
+import Data.Store
 
 data Gust = Gust
     { _guID :: Int
@@ -18,3 +21,4 @@ data Gust = Gust
 
 makeLenses ''Gust
 deriveJSON defaultOptions ''Gust
+$($(derive [d| instance Deriving (Store Gust) |]))