guix
/
guix-cuirass
mirror of git://git.savannah.gnu.org/guix/guix-cuirass.git
2
0
Fork 0
Code Issues Releases Wiki Activity

http: 'request-parameters' always returns a list. 

* src/cuirass/http.scm (request-parameters): Return the empty list when
QUERY is #f.
This commit is contained in:
Ludovic Courtès 2018-03-01 15:40:19 +01:00
parent dbea9790d3
commit 5ddd4b97a5
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/cuirass/http.scm
View File

@ -79,17 +79,18 @@
'((parameter value) ...)."
(let* ((uri (request-uri request))
(query (uri-query uri)))
(and query
(map (lambda (param)
(match (string-split param #\=)
((key param)
(let ((key-symbol (string->symbol key)))
(list key-symbol
(match key-symbol
('id (string->number param))
('nr (string->number param))
(_ param)))))))
(string-split query #\&)))))
(if query
(map (lambda (param)
(match (string-split param #\=)
((key param)
(let ((key-symbol (string->symbol key)))
(list key-symbol
(match key-symbol
('id (string->number param))
('nr (string->number param))
(_ param)))))))
(string-split query #\&))
'())))
;;;