servlet errors should be code 500

2012-08-02 07:03:11 -06:00 · 2012-08-02 07:03:11 -06:00 · 56b2e0754f
commit 56b2e0754f
parent f2e0e0bfeb
2 changed files with 2 additions and 0 deletions
--- a/collects/web-server/configuration/responders.rkt
+++ b/collects/web-server/configuration/responders.rkt
@ -28,6 +28,7 @@

 (define (pretty-exception-response url exn)
  (response/xexpr
+   #:code 500
   `(html
     (head
      (title "Servlet Error")
--- a/collects/web-server/servlet/web.rkt
+++ b/collects/web-server/servlet/web.rkt
@ -158,6 +158,7 @@
        (lambda (exn)
          (send/finish-or-back
           (response/xexpr
+            #:code 500
            `(html (head (title "Servlet Error"))
                   (body ([bgcolor "white"])
                         (p "The following error occured: "