cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a JSON error page

Browse source
This commit is contained in:
Christopher Baines 2024-06-21 11:04:57 +01:00
parent 84a2ad5b25
commit 94e66d5b1f
1 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

19
guix-data-service/web/controller.scm
View file

@ -718,11 +718,20 @@
startup-controller-thunk) startup-controller-thunk)
#:on-error 'backtrace #:on-error 'backtrace
#:post-error (lambda args #:post-error (lambda args
(render-html #:sxml (error-page (case (most-appropriate-mime-type
(if (%show-error-details) '(application/json text/html)
args mime-types)
#f)) ((application/json)
#:code 500)))) (render-json `((error . ,(if (%show-error-details)
(simple-format #f "~A" args)
#f)))
#:code 500))
(else
(render-html #:sxml (error-page
(if (%show-error-details)
args
#f))
#:code 500))))))
(define* (base-controller request method-and-path-components (define* (base-controller request method-and-path-components
startup-completed?) startup-completed?)