From b15c8f706e5d31ed410fc285815f6c292b005a6e Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 11 May 2019 23:02:54 +0100 Subject: Fix a request->path-components-and-mime-type bug The first value should always be a list. --- guix-data-service/web/util.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'guix-data-service') 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) -- cgit v1.2.3