Attempt to make CWorld correct instance of Store

src/Dodge/Data/Magnet.hs

@@ -3,10 +3,13 @@
 
 module Dodge.Data.Magnet where
 
+import LinearHelp
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
 import Geometry.Data
+import TH.Derive
+import Data.Store
 
 newtype MagnetUpdate = MagnetUpdateTimer Int
     deriving (Eq, Ord, Show, Read)
@@ -28,3 +31,6 @@ makeLenses ''Magnet
 deriveJSON defaultOptions ''MagnetUpdate
 deriveJSON defaultOptions ''MagnetBuBu
 deriveJSON defaultOptions ''Magnet
+$($(derive [d| instance Deriving (Store MagnetUpdate) |]))
+$($(derive [d| instance Deriving (Store MagnetBuBu) |]))
+$($(derive [d| instance Deriving (Store Magnet) |]))