diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-05-20 08:22:41 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-05-20 08:22:41 +0100 |
| commit | 95ad50a80c09d0457f2ce55d6c2fce0f39b9fc28 (patch) | |
| tree | 427c8e3b49b98f1f56a1ff2d1eddd8255cccacbb | |
| parent | 9c234514826187eb228a256f6a9c2e314e91f5d0 (diff) | |
| download | data-service-95ad50a80c09d0457f2ce55d6c2fce0f39b9fc28.tar data-service-95ad50a80c09d0457f2ce55d6c2fce0f39b9fc28.tar.gz | |
Fix #:no-default-when in the query-parameters module
It now actually looks at the fields which have been provided.
| -rw-r--r-- | guix-data-service/web/query-parameters.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix-data-service/web/query-parameters.scm b/guix-data-service/web/query-parameters.scm index 12ac4c6..8910e61 100644 --- a/guix-data-service/web/query-parameters.scm +++ b/guix-data-service/web/query-parameters.scm @@ -154,7 +154,7 @@ (let ((use-default? (every (lambda (field) (not (memq field fields))) - fields))) + (map car request-query-parameters)))) (match (assq name request-query-parameters) (#f (if use-default? (cons name default) |