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

runtime path

Browse Source 
svn: r13352
This commit is contained in:
Jay McCarthy 2009-02-02 17:49:29 +00:00
parent 99e9376a73
commit 0c60212360
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/web-server/configuration/responders.ss
View File

@ -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)))
"<unknown location>")))))
(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)]