swh: Adjust for Guile-JSON 4.0 null handling.

* guix/swh.scm (string*): Add clause for 'null.
2020-06-30 00:15:35 +02:00 · 2020-06-30 00:15:35 +02:00 · cc6dd2981c
parent e3e757edf9
commit cc6dd2981c
1 changed files with 2 additions and 1 deletions
--- 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