Attempt to make CWorld correct instance of Store

src/Dodge/Data/PosEvent.hs

@@ -3,12 +3,16 @@
 
 module Dodge.Data.PosEvent where
 
+import LinearHelp
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
+import TH.Derive
+import Data.Store
 
 data PosEventType = SparkSpawner
+    | HackPosEventType
     deriving (Eq, Ord, Show, Read)
 
 data PosEvent = PosEvent
@@ -21,3 +25,5 @@ data PosEvent = PosEvent
 makeLenses ''PosEvent
 deriveJSON defaultOptions ''PosEventType
 deriveJSON defaultOptions ''PosEvent
+$($(derive [d| instance Deriving (Store PosEventType) |]))
+$($(derive [d| instance Deriving (Store PosEvent) |]))