hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-05 09:21:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #34 from slyrus/mime-lookup-2

Browse source 
use mimes:mime-lookup instead of mimes:mime
This commit is contained in:
Eitaro Fukamachi 2018-07-30 09:57:07 +09:00 • committed by GitHub
commit dee83e31f4
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/app/file.lisp
View file

@ -53,7 +53,8 @@
(t file)))) (t file))))
(defun serve-path (file encoding) (defun serve-path (file encoding)
(let ((content-type (mimes:mime file "text/plain")) (let ((content-type (or (mimes:mime-lookup file)
"application/octet-stream"))
(univ-time (or (file-write-date file) (univ-time (or (file-write-date file)
(get-universal-time)))) (get-universal-time))))
(when (starts-with-subseq "text" content-type) (when (starts-with-subseq "text" content-type)