Add generic derivations and To/FromJSON instances

src/Dodge/Data/CrGroupParams.hs

@@ -1,20 +1,26 @@
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.CrGroupParams
     where
+import GHC.Generics
+import Data.Aeson
 import Geometry.Data
 import qualified Data.IntSet as IS
 import Control.Lens
-
 data CrGroupParams = CrGroupParams
     { _crGroupParamID   :: Int
     , _crGroupIDs       :: IS.IntSet
     , _crGroupCenter    :: Point2
     , _crGroupUpdate    :: CrGroupUpdate --World -> CrGroupParams -> Maybe CrGroupParams
     }
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON CrGroupParams  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON CrGroupParams 
 data CrGroupUpdate = DefaultCrGroupUpdate
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON CrGroupUpdate  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON CrGroupUpdate 
 makeLenses ''CrGroupParams