http: Handle request parameters with no value.

Handle requests such as "/build/?nr" by ignoring parameters without any
associated value.

* src/cuirass/http.scm (request-parameters): Ignore silently parameters
without an associated value.
* tests/http.scm: Add a corresponding test case.

1 files changed, 10 insertions, 7 deletions

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 39d8711..de27ea5 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -146,16 +146,19 @@ Hydra format."
   (let* ((uri (request-uri request))
          (query (uri-query uri)))
     (if query
-        (map (lambda (param)
+        (fold (lambda (param params)
                (match (string-split param #\=)
                  ((key param)
                   (let ((key-symbol (string->symbol key)))
-                    (cons key-symbol
-                          (match key-symbol
-                            ('id (string->number param))
-                            ('nr (string->number param))
-                            (_   param)))))))
-             (string-split query #\&))
+                    (cons (cons key-symbol
+                                (match key-symbol
+                                  ('id (string->number param))
+                                  ('nr (string->number param))
+                                  (_   param)))
+                          params)))
+                 (_ #f)))
+              '()
+              (string-split query #\&))
         '())))