Add generic derivations and To/FromJSON instances

src/Dodge/Data/SoundOrigin.hs

@@ -1,6 +1,10 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE StrictData #-}
 module Dodge.Data.SoundOrigin
     where
 import Dodge.Data.Material
+import GHC.Generics
+import Data.Aeson
 data SoundOrigin = InventorySound 
     | BackgroundSound
     | OnceSound
@@ -26,5 +30,7 @@ data SoundOrigin = InventorySound
     | LeverSound Int
     | Explosion Int
     | Tap Int
-  deriving (Eq,Ord,Show,Read)
-
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON SoundOrigin where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON SoundOrigin