Remove generic and flat instances

src/Dodge/Data/Magnet.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Magnet where
 
-import Flat
 import LinearHelp ()
 import Control.Lens
 import Data.Aeson
@@ -13,12 +12,12 @@ import Data.Aeson.TH
 import Geometry.Data
 
 newtype MagnetUpdate = MagnetUpdateTimer Int
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data MagnetBuBu
     = MagnetBuId
     | MagnetBuBuCurveAroundField Float Float
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Magnet = Magnet
     { _mgID :: Int
@@ -26,7 +25,7 @@ data Magnet = Magnet
     , _mgPos :: Point2
     , _mgField :: MagnetBuBu
     }
-    deriving (Eq, Ord, Show, Read, Generic, Flat)
+    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''Magnet
 deriveJSON defaultOptions ''MagnetUpdate