Add generic derivations and To/FromJSON instances

src/Dodge/Data/Item/Params.hs

@@ -1,12 +1,14 @@
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.Item.Params where
+import GHC.Generics
+import Data.Aeson
 import Dodge.Data.Beam
 import Dodge.Data.ArcStep
 import Geometry.Data
 import Color
 import Control.Lens
-
 data ItemParams
     = NoParams
     | ShellLauncher
@@ -55,9 +57,15 @@ data ItemParams
         , _previousArcEffect :: PreviousArcEffect
         }
     | ParamMID {_paramMID :: Maybe Int}
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON ItemParams where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON ItemParams
 data PreviousArcEffect = NoPreviousArcEffect | PerturbTillBreakPreviousArc
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON PreviousArcEffect  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON PreviousArcEffect 
 data GunBarrels
     = MultiBarrel
         { _brlSpread     :: BarrelSpread
@@ -69,7 +77,10 @@ data GunBarrels
         , _brlInaccuracy :: Float
         }
     | SingleBarrel  {_brlInaccuracy :: Float}
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON GunBarrels where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON GunBarrels
 data Nozzle = Nozzle
     { _nzPressure :: Float
     , _nzDir :: Float
@@ -78,12 +89,19 @@ data Nozzle = Nozzle
     , _nzWalkSpeed  :: Float
     , _nzLength     :: Float
     }
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON Nozzle  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON Nozzle 
 data BarrelSpread
     = AlignedBarrels
     | SpreadBarrels   {_spreadAngle :: Float}
     | RotatingBarrels {_rotatingBarrelInaccuracy :: Float}
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON BarrelSpread where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON BarrelSpread
 makeLenses ''BarrelSpread
 makeLenses ''ItemParams
+makeLenses ''Nozzle
+makeLenses ''GunBarrels