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

Fix lack.middleware.static.

Browse source
This commit is contained in:
Eitaro Fukamachi 2015-03-07 04:19:55 +09:00
parent 090b15d0da
commit 7972565157
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/app/file.lisp
View file

@ -64,5 +64,5 @@
:content-length ,(file-length stream)
:last-modified
,(format-rfc1123-timestring nil
(universal-to-timestamp univ-time))
,file)))))
(universal-to-timestamp univ-time)))
,file))))

4
src/middleware/static.lisp
View file

@ -20,7 +20,7 @@
(progn
(setf (getf env :path-info)
(subseq path-info (1- (length path))))
(call-app-file :TODO))
(call-app-file root env))
(funcall app env)))))
(function
(lambda (env)
@ -28,7 +28,7 @@
(if-let (new-path (funcall path path-info))
(progn
(setf (getf env :path-info) new-path)
(call-app-file :TODO))
(call-app-file root env))
(funcall app env))))))))
(defun call-app-file (root env)