cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix #:no-default-when in the query-parameters module

Browse source 
It now actually looks at the fields which have been provided.
This commit is contained in:
Christopher Baines 2019-05-20 08:22:41 +01:00
parent 9c23451482
commit 95ad50a80c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guix-data-service/web/query-parameters.scm
View file

@ -154,7 +154,7 @@
(let ((use-default? (let ((use-default?
(every (lambda (field) (every (lambda (field)
(not (memq field fields))) (not (memq field fields)))
fields))) (map car request-query-parameters))))
(match (assq name request-query-parameters) (match (assq name request-query-parameters)
(#f (if use-default? (#f (if use-default?
(cons name default) (cons name default)