summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-09-08 14:29:27 +0200
committerLudovic Courtès <ludo@gnu.org>2019-09-08 14:43:41 +0200
commit982a94e97eff85b053558fac7c0442726a091f11 (patch)
treefd65abe6a51b26f68132a3c49e95ce9c99d83e99
parent2bb29718836f29d4dddc8494d6c3fa6ad6c2840e (diff)
downloadguix-982a94e97eff85b053558fac7c0442726a091f11.tar.gz
import: github: Fix incorrect no-release case.
This is a followup to 81c3dc32244a17241d74eea9fa265edfcb326f6d.

Since that commit, when /releases returned an empty JSON array, we would
not fall back to /tags because of the incorrect match.

* guix/import/github.scm (fetch-releases-or-tags): Match the empty
vector instead of the empty list.
-rw-r--r--guix/import/github.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/import/github.scm b/guix/import/github.scm
index 55e1f72a42..55ea00a111 100644
--- a/guix/import/github.scm
+++ b/guix/import/github.scm
@@ -161,7 +161,7 @@ empty list."
         url))
 
   (match (json-fetch (decorate 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.
      (json-fetch (decorate tag-url) #:headers headers))