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

cleaning up error message

Browse Source 
svn: r6100
This commit is contained in:
Jay McCarthy 2007-04-30 17:03:25 +00:00
parent cfdb0b6aef
commit ea004857cf
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -114,12 +114,14 @@
; more here - parameterize error based on a configurable file, perhaps? ; more here - parameterize error based on a configurable file, perhaps?
; This is slightly tricky since the (interesting) content comes from the exception. ; This is slightly tricky since the (interesting) content comes from the exception.
(define (servlet-loading-responder url exn) (define (servlet-loading-responder url exn)
((error-display-handler)
(format "Servlet didn't load:\n~a\n" (exn-message exn))
exn)
(make-response/full 500 "Servlet didn't load" (make-response/full 500 "Servlet didn't load"
(current-seconds) (current-seconds)
TEXT/HTML-MIME-TYPE TEXT/HTML-MIME-TYPE
'() ; check '() ; check
(list "Servlet didn't load.\n" (list "Servlet didn't load.\n")))
(exn->string exn))))
; gen-servlet-not-found : str -> url -> response ; gen-servlet-not-found : str -> url -> response
(define (gen-servlet-not-found file-not-found-file) (define (gen-servlet-not-found file-not-found-file)