Add generic derivations and To/FromJSON instances

src/Dodge/Data/Modification.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.Modification
@@ -6,7 +7,8 @@ module Dodge.Data.Modification
 import Dodge.Data.WorldEffect
 import Geometry.Data
 import Control.Lens
-
+import GHC.Generics
+import Data.Aeson
 data Modification
     = ModIDTimerPoint3Bool
         { _mdID     :: Int
@@ -22,5 +24,8 @@ data Modification
         , _mdExternalID2 :: Int
         , _mdUpdate :: MdWdWd
         }
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON Modification where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON Modification
 makeLenses ''Modification