From 4ebac5d3439119d6b883bbec5920ea287010511c Mon Sep 17 00:00:00 2001 From: John Clements Date: Mon, 6 Apr 2009 21:42:23 +0000 Subject: [PATCH] removed call to string->path svn: r14439 --- collects/handin-server/web-status-server.ss | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/collects/handin-server/web-status-server.ss b/collects/handin-server/web-status-server.ss index 9674921a80..c5b4d79458 100644 --- a/collects/handin-server/web-status-server.ss +++ b/collects/handin-server/web-status-server.ss @@ -251,14 +251,13 @@ (body ,msg "; " (a ([href "/"]) "restarting") " in 3 seconds."))) (define ((run-servlet port)) - (define dir (string->path server-dir)) (serve/servlet (lambda (request) (parameterize ([current-session (web-counter)]) (login-page (aget (request-bindings request) 'handin) #f))) #:port port #:listen-ip #f #:ssl? #t #:command-line? #t #:servlet-path "/" #:servlet-regexp #rx"" - #:server-root-path dir #:servlets-root dir + #:server-root-path server-dir #:servlets-root server-dir #:file-not-found-responder (send-error "File not found") #:servlet-namespace '(handin-server/private/md5 handin-server/private/logger