Add deleteReference

pbrisbin · phadej · commit 9db8cf11dc4f · 2020-05-26T22:20:58.000+03:00
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -10,7 +10,8 @@
   [#436](https://github.com/phadej/github/pull/436)
 - Teams improvements
   [#417](https://github.com/phadej/github/pull/417)
-
+- Add deleteReference endpoint
+  [#388](https://github.com/phadej/github/pull/388)
 	
 ## Changes for 0.25
 
diff --git a/src/GitHub.hs b/src/GitHub.hs
@@ -100,6 +100,8 @@ module GitHub (
     referenceR,
     referencesR,
     createReferenceR,
+    deleteReferenceR,
+    namespacedReferencesR,
 
     -- ** Trees
     -- | See <https://developer.github.com/v3/git/trees/>
diff --git a/src/GitHub/Endpoints/GitData/References.hs b/src/GitHub/Endpoints/GitData/References.hs
@@ -10,6 +10,7 @@ module GitHub.Endpoints.GitData.References (
     referenceR,
     referencesR,
     createReferenceR,
+    deleteReferenceR,
     namespacedReferencesR,
     module GitHub.Data,
     ) where
@@ -36,6 +37,12 @@ createReferenceR :: Name Owner -> Name Repo -> NewGitReference -> Request 'RW Gi
 createReferenceR user repo newRef =
      command Post  ["repos", toPathPart user, toPathPart repo , "git", "refs"] (encode newRef)
 
+-- | Delete a reference.
+-- See <https://developer.github.com/v3/git/refs/#delete-a-reference>
+deleteReferenceR :: Name Owner -> Name Repo -> Name GitReference -> GenRequest 'MtUnit 'RW ()
+deleteReferenceR user repo ref =
+    Command Delete ["repos", toPathPart user, toPathPart repo , "git", "refs", toPathPart ref] mempty
+
 -- | Query namespaced references.
 -- See <https://developer.github.com/v3/git/refs/#get-all-references>
 namespacedReferencesR :: Name Owner -> Name Repo -> Text -> Request k [GitReference]
