From f6aa15c531e9e2c7bdeae10e0b4ef3da5c78ce4c Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 20 Nov 2008 04:59:26 +0000 Subject: [PATCH] Use the given `mime-types-path' for all files svn: r12528 --- collects/web-server/servlet-env.ss | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/collects/web-server/servlet-env.ss b/collects/web-server/servlet-env.ss index d817197aca..bf76c2602c 100644 --- a/collects/web-server/servlet-env.ss +++ b/collects/web-server/servlet-env.ss @@ -147,8 +147,7 @@ extra-files-paths)) (files:make #:url->path (fsmap:make-url->path (build-path server-root-path "htdocs")) - #:path->mime-type (make-path->mime-type - (build-path server-root-path "mime.types")) + #:path->mime-type (make-path->mime-type mime-types-path) #:indices (list "index.html" "index.htm")) (lift:make file-not-found-responder))) (define shutdown-server