Commit 856571ba authored by  's avatar  
Browse files

Syncing from Monotone at 20190211-024801. Last commit message was Recognise XHTML

parent 651bc655
...@@ -53,6 +53,8 @@ ...@@ -53,6 +53,8 @@
(declare (ignorable url headers code)) (declare (ignorable url headers code))
(cond ((cl-ppcre:scan "^text/html(;|$)" content-type) (cond ((cl-ppcre:scan "^text/html(;|$)" content-type)
(ignore-errors (html5-parser:parse-html5 content))) (ignore-errors (html5-parser:parse-html5 content)))
((cl-ppcre:scan "^text/xhtml(;|$)" content-type)
(ignore-errors (html5-parser:parse-html5 content)))
((cl-ppcre:scan "^(text|application)/(x-)?json(;|$)" ((cl-ppcre:scan "^(text|application)/(x-)?json(;|$)"
content-type) content-type)
(ignore-errors (cl-json:decode-json-from-string (ignore-errors (cl-json:decode-json-from-string
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment