Add Store instances

src/Dodge/Data/Magnet.hs

@@ -5,6 +5,8 @@
 
 module Dodge.Data.Magnet where
 
+import TH.Derive
+import Data.Store
 import Data.Binary
 import Flat
 import LinearHelp ()
@@ -15,13 +17,13 @@ import Geometry.Data
 
 newtype MagnetUpdate = MagnetUpdateTimer Int
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary MagnetUpdate
+$($(derive [d| instance Deriving (Store MagnetUpdate) |]))
 
 data MagnetBuBu
     = MagnetBuId
     | MagnetBuBuCurveAroundField Float Float
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary MagnetBuBu
+$($(derive [d| instance Deriving (Store MagnetBuBu) |]))
 
 data Magnet = Magnet
     { _mgID :: Int
@@ -30,7 +32,7 @@ data Magnet = Magnet
     , _mgField :: MagnetBuBu
     }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
-instance Binary Magnet 
+$($(derive [d| instance Deriving (Store Magnet ) |]))
 
 makeLenses ''Magnet
 deriveJSON defaultOptions ''MagnetUpdate