Go back to JSON encoding

src/Dodge/Data/Magnet.hs

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