report after the web server started

svn: r17434
This commit is contained in:
Eli Barzilay 2009-12-30 11:20:05 +00:00
parent 66aa708427
commit de80d826df

View File

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