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

still, should return the web server controller function

Browse Source 
svn: r17435
This commit is contained in:
Eli Barzilay 2009-12-30 11:24:09 +00:00
parent de80d826df
commit c7653ad43b
1 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/handin-server/web-status-server.ss
View File

@ -256,13 +256,14 @@
(define (run) (define (run)
(cond [(get-conf 'https-port-number) (cond [(get-conf 'https-port-number)
=> (lambda (p) => (lambda (p)
(parameterize ([error-print-context-length 0]) (begin0 (parameterize ([error-print-context-length 0])
(run-servlet dispatcher p server-dir (run-servlet
#:namespace '(handin-server/private/md5 dispatcher p server-dir
handin-server/private/logger #:namespace '(handin-server/private/md5
handin-server/private/config handin-server/private/logger
handin-server/private/hooker handin-server/private/config
handin-server/private/reloadable) handin-server/private/hooker
#:log-file (get-conf 'web-log-file))) handin-server/private/reloadable)
(log-line "*** embedded web server started on port ~a" p))] #:log-file (get-conf 'web-log-file)))
(log-line "*** embedded web server started on port ~a" p)))]
[else void])) [else void]))