From cc6dd2981c7e81a3a1750821ba53e63a7a4bc8e9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 30 Jun 2020 00:15:35 +0200
Subject: swh: Adjust for Guile-JSON 4.0 null handling.

* guix/swh.scm (string*): Add clause for 'null.
---
 guix/swh.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'guix/swh.scm')

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
-- 
cgit v1.2.3