Add generic derivations and To/FromJSON instances

src/Dodge/Data/Spark.hs

@@ -1,6 +1,9 @@
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.Spark where
+import GHC.Generics
+import Data.Aeson
 import Dodge.Data.Damage.Type
 import Geometry.Data
 import Color
@@ -13,5 +16,8 @@ data Spark = Spark
     , _skWidth  :: Float 
     , _skDamageType :: DamageType
     }
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON Spark  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON Spark 
 makeLenses ''Spark