summaryrefslogtreecommitdiff
path: root/guix/swh.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-06-30 00:15:35 +0200
committerLudovic Courtès <ludo@gnu.org>2020-06-30 00:18:28 +0200
commitcc6dd2981c7e81a3a1750821ba53e63a7a4bc8e9 (patch)
tree2e28b6298650a2652ff7803d038de04362b92090 /guix/swh.scm
parente3e757edf936ebd8a86a72afaf4c5383e5ccf17b (diff)
swh: Adjust for Guile-JSON 4.0 null handling.
* guix/swh.scm (string*): Add clause for 'null.
Diffstat (limited to 'guix/swh.scm')
-rw-r--r--guix/swh.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/swh.scm b/guix/swh.scm
index ec744fed2f..913f0d1c9d 100644
--- a/guix/swh.scm
+++ b/guix/swh.scm
@@ -174,7 +174,8 @@ Software Heritage."
;; Converts "string or #nil" coming from JSON to "string or #f".
(match-lambda
((? string? str) str)
- ((? null?) #f)))
+ ((? null?) #f) ;Guile-JSON 3.x
+ ('null #f))) ;Guile-JSON 4.x
(define %allow-request?
;; Takes a URL and method (e.g., the 'http-get' procedure) and returns true