diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-06-30 00:15:35 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-06-30 00:18:28 +0200 |
| commit | cc6dd2981c7e81a3a1750821ba53e63a7a4bc8e9 (patch) | |
| tree | 2e28b6298650a2652ff7803d038de04362b92090 /guix | |
| parent | e3e757edf936ebd8a86a72afaf4c5383e5ccf17b (diff) | |
| download | guix-patches-cc6dd2981c7e81a3a1750821ba53e63a7a4bc8e9.tar guix-patches-cc6dd2981c7e81a3a1750821ba53e63a7a4bc8e9.tar.gz | |
swh: Adjust for Guile-JSON 4.0 null handling.
* guix/swh.scm (string*): Add clause for 'null.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/swh.scm | 3 |
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 |