From dfb1da3197cf9d839754400794ecd651dfdcd52c Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 16 May 2019 22:43:51 +0100 Subject: Fix query-parameters->string for multi-valued parameters --- guix-data-service/web/query-parameters.scm | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/guix-data-service/web/query-parameters.scm b/guix-data-service/web/query-parameters.scm index 7445409..dbf2e65 100644 --- a/guix-data-service/web/query-parameters.scm +++ b/guix-data-service/web/query-parameters.scm @@ -172,13 +172,14 @@ ((key . ($ )) '()) ((key . value) - (list (simple-format #f "~A=~A" - key (value->text value)))) - ((key values ...) - (map (lambda (value) - (simple-format #f "~A=~A" - key (value->text value))) - values))) + (if (list? value) + (map (lambda (value) + (simple-format #f "~A=~A" + key (value->text value))) + value) + (list (simple-format + #f "~A=~A" + key (value->text value)))))) query-parameters)) "&")) -- cgit v1.2.3