Add generic derivations and To/FromJSON instances

src/Dodge/Equipment/Data.hs

@@ -1,4 +1,8 @@
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE DeriveGeneric #-}
 module Dodge.Equipment.Data where
+import GHC.Generics
+import Data.Aeson
 data EquipSite
     = GoesOnHead
     | GoesOnChest
@@ -6,7 +10,10 @@ data EquipSite
     | GoesOnWrist
     | GoesOnLegs
     | GoesOnSpecial
-    deriving (Eq,Ord,Show,Read)
+    deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON EquipSite where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON EquipSite
 data EquipPosition
     = OnHead
     | OnChest
@@ -15,4 +22,9 @@ data EquipPosition
     | OnRightWrist
     | OnLegs
     | OnSpecial
-    deriving (Eq,Ord,Show,Read)
+    deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON EquipPosition where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON EquipPosition
+instance ToJSONKey EquipPosition
+instance FromJSONKey EquipPosition