* module/web/response.scm (text-content-type?): Add check for /json and +json.
---
module/web/response.scm | 2 ++
1 file changed, 2 insertions(+)
diff --git a/module/web/response.scm b/module/web/response.scm
index 4ac4d74ca..394aac83c 100644
--- a/module/web/response.scm
+++ b/module/web/response.scm
@@ -182,6 +182,8 @@ reason phrase for the response's code."
represents a textual type such as `text/plain'."
(let ((type (symbol->string type)))
(or (string-prefix? "text/" type)
+ (string-suffix? "/json" type)
+ (string-suffix? "+json" type)
(string-suffix? "/xml" type)
(string-suffix? "+xml" type))))
--
2.41.0
