Add generic derivations and To/FromJSON instances

src/Dodge/Data/PosEvent.hs

@@ -1,15 +1,23 @@
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.PosEvent where
+import GHC.Generics
+import Data.Aeson
 import Geometry.Data
 import Control.Lens
-
 data PosEventType = SparkSpawner
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON PosEventType  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON PosEventType 
 data PosEvent = PosEvent
     { _pvType   :: PosEventType
     , _pvTimer  :: Int
     , _pvPos    :: Point2
     }
-  deriving (Eq,Ord,Show,Read)
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON PosEvent  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON PosEvent 
 makeLenses ''PosEvent