Add generic derivations and To/FromJSON instances

src/Dodge/Data/Payload.hs

@@ -1,5 +1,11 @@
+{-# LANGUAGE DeriveGeneric #-}
 --{-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE StrictData #-}
 module Dodge.Data.Payload where
+import GHC.Generics
+import Data.Aeson
 data Payload = ExplosionPayload | DudPayload
-  deriving (Show,Read,Eq,Ord,Enum,Bounded)
+  deriving (Show,Read,Eq,Ord,Enum,Bounded,Generic)
+instance ToJSON Payload where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON Payload