diff options
Diffstat (limited to 'bffe/server.scm')
-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 |