cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
The first value should always be a list.
This commit is contained in:
Christopher Baines 2019-05-11 23:02:54 +01:00
parent 658a1a20b2
commit b15c8f706e
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guix-data-service/web/util.scm
View file

@ -58,7 +58,7 @@
(or (request-accept request) (or (request-accept request)
(list 'text/html)))) (list 'text/html))))
((first-parts ... extension) ((first-parts ... extension)
(values (string-join first-parts ".") (values (list (string-join first-parts "."))
(or (cons (or (cons
(or (assoc-ref extensions-to-mime-types extension) (or (assoc-ref extensions-to-mime-types extension)
'text/html) 'text/html)