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

Contract error and path isssue

Browse Source 
svn: r6397
This commit is contained in:
Jay McCarthy 2007-05-29 23:38:26 +00:00
parent 31f90418ca
commit 220fc57897
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/web-server/private/configuration.ss
View File

@ -3,7 +3,8 @@
(lib "kw.ss")
(lib "list.ss")
(lib "etc.ss")
(lib "contract.ss"))
(lib "contract.ss")
(lib "url.ss" "net"))
(require "configuration-structures.ss"
"configuration-table-structs.ss"
"util.ss"
@ -237,11 +238,11 @@
[error-response ((natural-number/c string? string?) (listof (cons/c symbol? string?)) . ->* . (response?))]
; XXX contract
[servlet-loading-responder (string? any/c . -> . response?)]
[gen-servlet-not-found (path-string? . -> . (string? . -> . response?))]
[gen-servlet-responder (path-string? . -> . (string? any/c . -> . response?))]
[gen-servlet-not-found (path-string? . -> . (url? . -> . response?))]
[gen-servlet-responder (path-string? . -> . (url? any/c . -> . response?))]
[gen-servlets-refreshed (path-string? . -> . (-> response?))]
[gen-passwords-refreshed (path-string? . -> . (-> response?))]
[gen-authentication-responder (path-string? . -> . (string? (cons/c symbol? string?) . -> . response?))]
[gen-authentication-responder (path-string? . -> . (url? (cons/c symbol? string?) . -> . response?))]
[gen-protocol-responder (path-string? . -> . (string? . -> . response?))]
[gen-file-not-found-responder (path-string? . -> . (string? . -> . response?))]
[gen-file-not-found-responder (path-string? . -> . (url? . -> . response?))]
[gen-collect-garbage-responder (path-string? . -> . (-> response?))]))

2
collects/web-server/prototype-web-server/run.ss
View File

@ -4,7 +4,7 @@
(prefix files: (lib "dispatch-files.ss" "web-server" "dispatchers"))
(prefix filter: (lib "dispatch-filter.ss" "web-server" "dispatchers"))
(prefix sequencer: (lib "dispatch-sequencer.ss" "web-server" "dispatchers"))
(prefix servlets2: "dispatch-servlets2.ss"))
(prefix servlets2: (lib "dispatch-servlets2.ss" "web-server" "prototype-web-server")))
(define server-root-path (build-path "~" "Development" "plt" "default-web-root"))
(define default-host-path (build-path server-root-path "conf"))