@@ -647,6 +647,7 @@ markdown api = unlines $
647647 case (M.mainType mime_type, M.subType mime_type) of
648648 ("text", "html") -> "html"
649649 ("application", "xml") -> "xml"
650+ ("text", "xml") -> "xml"
650651 ("application", "json") -> "javascript"
651652 ("application", "javascript") -> "javascript"
652653 ("text", "css") -> "css"