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)) "&"))