Fix a request->path-components-and-mime-type bug

The first value should always be a list.
2019-05-11 23:02:54 +01:00 · 2019-05-11 23:02:54 +01:00 · b15c8f706e
parent 658a1a20b2
commit b15c8f706e
1 changed files with 1 additions and 1 deletions
--- a/guix-data-service/web/util.scm
+++ b/guix-data-service/web/util.scm
@ -58,7 +58,7 @@
                (or (request-accept request)
                    (list 'text/html))))
       ((first-parts ... extension)
-        (values (string-join first-parts ".")
+        (values (list (string-join first-parts "."))
                (or (cons
                     (or (assoc-ref extensions-to-mime-types extension)
                         'text/html)