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

servlet errors should be code 500

Browse Source
This commit is contained in:
Jay McCarthy 2012-08-02 07:03:11 -06:00
parent f2e0e0bfeb
commit 56b2e0754f
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/web-server/configuration/responders.rkt
View File

@ -28,6 +28,7 @@
(define (pretty-exception-response url exn) (define (pretty-exception-response url exn)
(response/xexpr (response/xexpr
#:code 500
`(html `(html
(head (head
(title "Servlet Error") (title "Servlet Error")

1
collects/web-server/servlet/web.rkt
View File

@ -158,6 +158,7 @@
(lambda (exn) (lambda (exn)
(send/finish-or-back (send/finish-or-back
(response/xexpr (response/xexpr
#:code 500
`(html (head (title "Servlet Error")) `(html (head (title "Servlet Error"))
(body ([bgcolor "white"]) (body ([bgcolor "white"])
(p "The following error occured: " (p "The following error occured: "