From 95ad50a80c09d0457f2ce55d6c2fce0f39b9fc28 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 20 May 2019 08:22:41 +0100 Subject: Fix #:no-default-when in the query-parameters module It now actually looks at the fields which have been provided. --- guix-data-service/web/query-parameters.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- cgit v1.2.3