From bd8f47350f0bbbd2ced21d97b8a4de6f606e97e9 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Fri, 1 Jun 2007 16:51:26 +0000 Subject: [PATCH] Fix reference to output-file svn: r6446 --- collects/web-server/dispatchers/dispatch-files.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/web-server/dispatchers/dispatch-files.ss b/collects/web-server/dispatchers/dispatch-files.ss index 21a4fd4798..bd7a6cb682 100644 --- a/collects/web-server/dispatchers/dispatch-files.ss +++ b/collects/web-server/dispatchers/dispatch-files.ss @@ -56,7 +56,8 @@ (define full-name (build-path path dir-default)) (when (and (file-exists? full-name) (looks-like-directory? (url-path->string (url-path uri)))) - (esc (output-file conn full-name method (get-mime-type full-name))))) + (esc (output-file conn full-name method (get-mime-type full-name) + 0 +inf.0)))) indices) (next-dispatcher))] [else