Attempt to make CWorld correct instance of Store

src/Dodge/Data/Spark.hs

@@ -3,12 +3,15 @@
 
 module Dodge.Data.Spark where
 
+import LinearHelp
 import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Dodge.Data.Damage.Type
 import Geometry.Data
+import TH.Derive
+import Data.Store
 
 data Spark = Spark
     { _skVel :: Point2
@@ -22,3 +25,4 @@ data Spark = Spark
 
 makeLenses ''Spark
 deriveJSON defaultOptions ''Spark
+$($(derive [d| instance Deriving (Store Spark) |]))