From d1324285bbbd15f9d8199c6674d0d38c35e381b0 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 22 Apr 2023 12:23:52 +0100
Subject: Further fix /events with no query parameters

---
 bffe/server.scm | 6 ++++--
 1 file 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)))
-- 
cgit v1.2.3