diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-02-03 12:18:54 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-02-03 12:18:54 +0100 |
| commit | f9e6daad99b697d31a9cbccacf8ca590e1e9e99f (patch) | |
| tree | 72d146482639f582fe05475a0a7a50cd7966b68e | |
| parent | 49f9aa4822ca7de57c7b9b0516d75dc98cdce0e3 (diff) | |
| download | data-service-f9e6daad99b697d31a9cbccacf8ca590e1e9e99f.tar data-service-f9e6daad99b697d31a9cbccacf8ca590e1e9e99f.tar.gz | |
Use the default knots web server exception handler
| -rw-r--r-- | guix-data-service/web/server.scm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm index 20b34cb..d6bd970 100644 --- a/guix-data-service/web/server.scm +++ b/guix-data-service/web/server.scm @@ -262,16 +262,12 @@ port. Also, the port used can be changed by passing the --port option.\n" pool stats))))) + ;; Use the error output from the default exception handler + (default-exception-handler exn request) + (let ((path-components mime-types (request->path-components-and-mime-type request))) - (simple-format - (current-error-port) - "error: when processing: ~A /~A\n ~A\n" - (request-method request) - (string-join path-components "/") - exn) - (case (most-appropriate-mime-type mime-types '(text/html application/json)) |