* module/web/response.scm (text-content-type?): Recognize JSON content
type as text.
---
module/web/response.scm | 1 +
1 file changed, 1 insertion(+)
diff --git a/module/web/response.scm b/module/web/response.scm
index 06e1c6dc1..679304c4d 100644
--- a/module/web/response.scm
+++ b/module/web/response.scm
@@ -184,6 +184,7 @@ 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? "/xml" type)
(string-suffix? "+xml" type))))
--
2.15.1
