Attempt to make CWorld correct instance of Store

src/Dodge/Data/Corpse.hs

@@ -3,13 +3,17 @@
 
 module Dodge.Data.Corpse where
 
+import LinearHelp
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
 import ShapePicture.Data
+import TH.Derive
+import Data.Store
 
 data CorpseResurrection = NoResurrection
+    | HackCorpseRez
     deriving (Eq, Ord, Show, Read)
 
 data Corpse = Corpse
@@ -24,3 +28,5 @@ data Corpse = Corpse
 makeLenses ''Corpse
 deriveJSON defaultOptions ''CorpseResurrection
 deriveJSON defaultOptions ''Corpse
+$($(derive [d| instance Deriving (Store CorpseResurrection) |]))
+$($(derive [d| instance Deriving (Store Corpse) |]))