cbaines/guile-knots
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Abbreviate the fport_writer error message

Browse source 
From the web server.
This commit is contained in:
Christopher Baines 2025-03-10 21:32:55 +00:00
parent 710972691b
commit 47ff45d963
1 changed files with 14 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

17
knots/web-server.scm
View file

@ -292,9 +292,20 @@ on the procedure being called at any particular time."
#f) #f)
(define (default-write-response-exception-handler exn request) (define (default-write-response-exception-handler exn request)
(simple-format (if (and (exception-with-origin? exn)
(current-error-port) (string=? (exception-origin exn)
"knots web server: exception replying to client: ~A\n" exn) "fport_write"))
(simple-format
(current-error-port)
"~A ~A: error replying to client\n"
(request-method request)
(uri-path (request-uri request)))
(simple-format
(current-error-port)
"knots web server: ~A ~A: exception replying to client: ~A\n"
(request-method request)
(uri-path (request-uri request))
exn))
;; Close the client port ;; Close the client port
#f) #f)