diff options
author | Christopher Baines <mail@cbaines.net> | 2023-04-22 12:21:33 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-04-22 12:21:33 +0100 |
commit | 96789bbc8a8891f21d9aa0a01ef7f3fc464ab254 (patch) | |
tree | d33b49268bbad80b06cad0201d52e99aeff9ce9b /bffe | |
parent | 9c1e652d2726b465c65768789c236b690759e659 (diff) | |
download | bffe-96789bbc8a8891f21d9aa0a01ef7f3fc464ab254.tar bffe-96789bbc8a8891f21d9aa0a01ef7f3fc464ab254.tar.gz |
Handle the query string not existing for /events
Diffstat (limited to 'bffe')
-rw-r--r-- | bffe/server.scm | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/bffe/server.scm b/bffe/server.scm index 3924543..b435476 100644 --- a/bffe/server.scm +++ b/bffe/server.scm @@ -348,15 +348,17 @@ (('GET "events") (let ((headers (request-headers request)) (query-parameters - (let lp ((lst (map uri-decode - (string-split (uri-query - (request-uri request)) - (char-set #\& #\=))))) - (match lst - ((key value . rest) - (cons (cons key value) (lp rest))) - (("") '()) - (() '()))))) + (let lp ((lst (and=> (uri-query (request-uri request)) + (lambda (query) + (map uri-decode + (string-split + query + (char-set #\& #\=))))))) + (match lst + ((key value . rest) + (cons (cons key value) (lp rest))) + (("") '()) + (() '()))))) (list (build-response #:code 200 |