Attempt to make CWorld correct instance of Store

src/Dodge/Data/CrGroupParams.hs

@@ -3,11 +3,14 @@
 
 module Dodge.Data.CrGroupParams where
 
+import LinearHelp
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import qualified Data.IntSet as IS
 import Geometry.Data
+import TH.Derive
+import Data.Store
 
 data CrGroupParams = CrGroupParams
     { _crGroupParamID :: Int
@@ -18,8 +21,11 @@ data CrGroupParams = CrGroupParams
     deriving (Eq, Ord, Show, Read)
 
 data CrGroupUpdate = DefaultCrGroupUpdate
+    | HackCrGroupUpdate
     deriving (Eq, Ord, Show, Read)
 
 makeLenses ''CrGroupParams
 deriveJSON defaultOptions ''CrGroupParams
 deriveJSON defaultOptions ''CrGroupUpdate
+$($(derive [d| instance Deriving (Store CrGroupParams) |]))
+$($(derive [d| instance Deriving (Store CrGroupUpdate) |]))