suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use the given `mime-types-path' for all files

Browse Source 
svn: r12528
This commit is contained in:
Eli Barzilay 2008-11-20 04:59:26 +00:00
parent 8b5b87c807
commit f6aa15c531
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/web-server/servlet-env.ss
View File

@ -147,8 +147,7 @@
extra-files-paths)) extra-files-paths))
(files:make (files:make
#:url->path (fsmap:make-url->path (build-path server-root-path "htdocs")) #:url->path (fsmap:make-url->path (build-path server-root-path "htdocs"))
#:path->mime-type (make-path->mime-type #:path->mime-type (make-path->mime-type mime-types-path)
(build-path server-root-path "mime.types"))
#:indices (list "index.html" "index.htm")) #:indices (list "index.html" "index.htm"))
(lift:make file-not-found-responder))) (lift:make file-not-found-responder)))
(define shutdown-server (define shutdown-server