diff options
| -rw-r--r-- | bffe/server.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/bffe/server.scm b/bffe/server.scm index b435476..7da2991 100644 --- a/bffe/server.scm +++ b/bffe/server.scm @@ -348,12 +348,14 @@ (('GET "events") (let ((headers (request-headers request)) (query-parameters - (let lp ((lst (and=> (uri-query (request-uri request)) + (let lp ((lst + (or (and=> (uri-query (request-uri request)) (lambda (query) (map uri-decode (string-split query - (char-set #\& #\=))))))) + (char-set #\& #\=))))) + '()))) (match lst ((key value . rest) (cons (cons key value) (lp rest))) |