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

contract bug

Browse Source 
svn: r8645
This commit is contained in:
Jay McCarthy 2008-02-13 15:50:01 +00:00
parent 603246a15a
commit d43ff0713e
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/web-server/web-config-unit.ss
View File

@ -11,17 +11,17 @@
; XXX unit? should be particular unit sig
(provide/contract
[configuration-table->web-config@
(-> path-string?
#:port (or/c false/c number?)
#:listen-ip (or/c false/c string?)
#:make-servlet-namespace make-servlet-namespace?
(->* (path-string?)
(#:port (or/c false/c number?)
#:listen-ip (or/c false/c string?)
#:make-servlet-namespace make-servlet-namespace?)
unit?)]
[configuration-table-sexpr->web-config@
(-> list? ; XXX
#:web-server-root path-string?
(->* (list?) ; XXX
(#:web-server-root path-string?
#:port (or/c false/c number?)
#:listen-ip (or/c false/c string?)
#:make-servlet-namespace make-servlet-namespace?
#:make-servlet-namespace make-servlet-namespace?)
unit?)])
; configuration-table->web-config@ : path -> configuration