Add draft option to mergeable state

haskell-github · Feb 14, 2020 · b9d2d1b · b9d2d1b
1 parent ce8ece7
commit b9d2d1b
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/GitHub/Data/Options.hs b/src/GitHub/Data/Options.hs
@@ -98,6 +98,7 @@ data MergeableState
     | StateUnstable
     | StateBlocked
     | StateBehind
+    | StateDraft
   deriving
     (Eq, Ord, Show, Enum, Bounded, Generic, Typeable, Data)
 
@@ -108,6 +109,7 @@ instance ToJSON MergeableState where
     toJSON StateUnstable = String "unstable"
     toJSON StateBlocked  = String "blocked"
     toJSON StateBehind   = String "behind"
+    toJSON StateDraft    = String "draft"
 
 instance FromJSON MergeableState where
     parseJSON = withText "MergeableState" $ \t -> case T.toLower t of
@@ -117,6 +119,7 @@ instance FromJSON MergeableState where
         "unstable" -> pure StateUnstable
         "blocked"  -> pure StateBlocked
         "behind"   -> pure StateBehind
+        "draft"    -> pure StateDraft
         _          -> fail $ "Unknown MergeableState: " <> T.unpack t
 
 instance NFData MergeableState where rnf = genericRnf