Subject: github auth

From: Matt Wette <[email-masked]>
Date: Sat, 15 Feb 2020 10:43:56 -0800

I have not gotten into testing, but according to email and references
provided previously the patch below might work.

--- github.scm-orig    2020-02-15 10:32:52.209481329 -0800
+++ github.scm    2020-02-15 10:40:36.958144491 -0800
@@ -154,14 +154,12 @@
      ;; Ask for version 3 of the API as suggested at
      ;; <https://developer.github.com/v3/>.
      `((Accept . "application/vnd.github.v3+json")
+      ,@(if (%github-token)
+        `(Authorization . ,(string-append "token " (%github-token)))
+        '())
        (user-agent . "GNU Guile")))

-  (define (decorate url)
-    (if (%github-token)
-        (string-append url "?access_token=" (%github-token))
-        url))
-
-  (match (json-fetch (decorate release-url) #:headers headers)
+  (match (json-fetch release-url #:headers headers)
      (#()
       ;; We got the empty list, presumably because the user didn't use 
GitHub's
       ;; "release" mechanism, but hopefully they did use Git tags.