Fix the arguments to most-appropriate-mime-type

This commit is contained in:
Christopher Baines 2024-06-24 09:59:37 +01:00
parent eeb026b654
commit d7103eccc9

View file

@ -719,8 +719,8 @@
#:on-error 'backtrace #:on-error 'backtrace
#:post-error (lambda args #:post-error (lambda args
(case (most-appropriate-mime-type (case (most-appropriate-mime-type
'(application/json text/html) mime-types
mime-types) '(text/html application/json))
((application/json) ((application/json)
(render-json `((error . ,(if (%show-error-details) (render-json `((error . ,(if (%show-error-details)
(simple-format #f "~A" args) (simple-format #f "~A" args)