me
/
guix
Archived
1
0
Fork 0
Code

swh: Adjust for Guile-JSON 4.0 null handling. 

* guix/swh.scm (string*): Add clause for 'null.
Ludovic Courtès 2020-06-30 00:15:35 +02:00
parent e3e757edf9
commit cc6dd2981c
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
guix/swh.scm
View File

@ -174,7 +174,8 @@ Software Heritage."
;; Converts "string or #nil" coming from JSON to "string or #f". ;; Converts "string or #nil" coming from JSON to "string or #f".
(match-lambda (match-lambda
((? string? str) str) ((? string? str) str)
((? null?) #f))) ((? null?) #f) ;Guile-JSON 3.x
('null #f))) ;Guile-JSON 4.x
(define %allow-request? (define %allow-request?
;; Takes a URL and method (e.g., the 'http-get' procedure) and returns true ;; Takes a URL and method (e.g., the 'http-get' procedure) and returns true