Add generic derivations and To/FromJSON instances

src/Dodge/Data/CamouflageStatus.hs

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