Add generic derivations and To/FromJSON instances

src/Dodge/Data/Magnet.hs

@@ -1,20 +1,30 @@
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.Magnet where
+import GHC.Generics
+import Data.Aeson
 import Geometry.Data
 import Control.Lens
-
 newtype MagnetUpdate = MagnetUpdateTimer Int
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON MagnetUpdate  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON MagnetUpdate 
 data MagnetBuBu = MagnetBuId
     | MagnetBuBuCurveAroundField Float Float
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON MagnetBuBu  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON MagnetBuBu 
 data Magnet = Magnet
     { _mgID :: Int
     , _mgUpdate :: MagnetUpdate
     , _mgPos :: Point2
     , _mgField  :: MagnetBuBu
     }
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON Magnet  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON Magnet 
 makeLenses ''Magnet