swh: Adjust for Guile-JSON 4.0 null handling.
* guix/swh.scm (string*): Add clause for 'null.
This commit is contained in:
		
							parent
							
								
									e3e757edf9
								
							
						
					
					
						commit
						cc6dd2981c
					
				
					 1 changed files with 2 additions and 1 deletions
				
			
		| 
						 | 
				
			
			@ -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
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Reference in a new issue