diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-05-11 23:02:54 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-05-11 23:02:54 +0100 |
| commit | b15c8f706e5d31ed410fc285815f6c292b005a6e (patch) | |
| tree | 5879f2854289ebd6d6389b97052d45371152853c | |
| parent | 658a1a20b20760cbe11d6442e3a15c7f27ae568e (diff) | |
| download | data-service-b15c8f706e5d31ed410fc285815f6c292b005a6e.tar data-service-b15c8f706e5d31ed410fc285815f6c292b005a6e.tar.gz | |
Fix a request->path-components-and-mime-type bug
The first value should always be a list.
| -rw-r--r-- | guix-data-service/web/util.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix-data-service/web/util.scm b/guix-data-service/web/util.scm index 6e1abb7..3792389 100644 --- 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) |