summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-05-11 20:33:49 +0100
committerChristopher Baines <mail@cbaines.net>2019-05-11 20:33:49 +0100
commitbec838caf95ae154ead22e109217186cfc858670 (patch)
tree079a7782fd82152a2ababecc0938414e37a5f279
parenta81a01638062adb57f770d40aebc89f4a441a49f (diff)
downloaddata-service-bec838caf95ae154ead22e109217186cfc858670.tar
data-service-bec838caf95ae154ead22e109217186cfc858670.tar.gz
Add ("") to parse-query-string
Otherwise a URL like https://example.com? will cause this to fail.
-rw-r--r--guix-data-service/web/query-parameters.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/guix-data-service/web/query-parameters.scm b/guix-data-service/web/query-parameters.scm
index 35d89a3..0809791 100644
--- a/guix-data-service/web/query-parameters.scm
+++ b/guix-data-service/web/query-parameters.scm
@@ -46,6 +46,7 @@
(match lst
((key value . rest)
(cons (cons key value) (lp rest)))
+ (("") '())
(() '()))))
(define-immutable-record-type <invalid-query-parameter>