From 0c6021236058812028ecba2d688167b526702c42 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 2 Feb 2009 17:49:29 +0000 Subject: [PATCH] runtime path svn: r13352 --- collects/web-server/configuration/responders.ss | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/collects/web-server/configuration/responders.ss b/collects/web-server/configuration/responders.ss index 67312335cb..95309cacab 100644 --- a/collects/web-server/configuration/responders.ss +++ b/collects/web-server/configuration/responders.ss @@ -1,8 +1,7 @@ -#lang scheme/base -(require mzlib/contract - mzlib/list - net/url) -(require web-server/http/response-structs +#lang scheme +(require scheme/runtime-path + net/url + web-server/http/response-structs web-server/private/xexpr web-server/http/request-structs) @@ -20,6 +19,10 @@ (srcloc-source (cdr item))) ""))))) +(define-runtime-path default-error-style-sheet + (list 'lib + "web-server/default-web-root/htdocs/error.css")) + (define (pretty-exception-response url exn) `(html (head @@ -111,7 +114,7 @@ (lambda (in) (read-string (file-size path) in)))) (provide/contract - [file-response ((natural-number/c string? path-string?) (listof header?) . ->* . (response/c))] + [file-response ((natural-number/c string? path-string?) () #:rest (listof header?) . ->* . response/c)] [servlet-loading-responder (url? exn? . -> . response/c)] [gen-servlet-not-found (path-string? . -> . (url? . -> . response/c))] [servlet-error-responder (url? exn? . -> . response/c)]