hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-05 17:31: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) :content-length ,(file-length stream)
:last-modified :last-modified
,(format-rfc1123-timestring nil ,(format-rfc1123-timestring nil
(universal-to-timestamp univ-time)) (universal-to-timestamp univ-time)))
,file))))) ,file))))

4
src/middleware/static.lisp
View file

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