Call web server exception handlers with the request

So that this can be used when reporting the exception.

knots/web-server.scm

@@ -158,7 +158,7 @@ on the procedure being called at any particular time."
               ((0) (memq 'keep-alive (response-connection response)))))
            (else #f)))))
 
-(define (default-write-response-exception-handler exn)
+(define (default-write-response-exception-handler exn request)
   (simple-format
    (current-error-port)
    "knots web server: exception replying to client: ~A\n" exn)
@@ -166,7 +166,7 @@ on the procedure being called at any particular time."
   ;; Close the client port
   #f)
 
-(define (default-exception-handler exn)
+(define (default-exception-handler exn request)
   (values (build-response #:code 500)
           ;; TODO Make this configurable
           (string->utf8
@@ -193,7 +193,8 @@ on the procedure being called at any particular time."
                      #vu8()))
             (else
              (with-exception-handler
-                 exception-handler
+                 (lambda (exn)
+                   (exception-handler exn request))
                (lambda ()
                  (call-with-values (lambda ()
                                      (with-stack-and-prompt
@@ -233,7 +234,8 @@ on the procedure being called at any particular time."
                         (raise-exception exception))))))
                #:unwind? #t)))))
       (with-exception-handler
-          write-response-exception-handler
+          (lambda (exn)
+            (write-response-exception-handler exn request))
         (lambda ()
           (write-response response client)
 

tests/web-server.scm

@@ -44,7 +44,7 @@
               (values '((content-type . (text/plain)))
                       "Hello, World!"))
             #:write-response-exception-handler
-            (lambda (exn)
+            (lambda (exn request)
               (spawn-fiber
                (lambda ()
                  (put-message exception-handled-sucecssfully-channel