From 061bf7a5b113396a6533260770aec4784da1d5bd Mon Sep 17 00:00:00 2001
From: Ivan Lazar Miljenovic <Ivan.Miljenovic@gmail.com>
Date: Thu, 5 Oct 2017 14:32:06 +1100
Subject: [PATCH] Add markdown type for text/xml

As it's an alternative mime-type for XML
---
 servant-docs/src/Servant/Docs/Internal.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/servant-docs/src/Servant/Docs/Internal.hs b/servant-docs/src/Servant/Docs/Internal.hs
index fdf1b855..7bf3481f 100644
--- a/servant-docs/src/Servant/Docs/Internal.hs
+++ b/servant-docs/src/Servant/Docs/Internal.hs
@@ -647,6 +647,7 @@ markdown api = unlines $
             case (M.mainType mime_type, M.subType mime_type) of
                 ("text", "html") -> "html"
                 ("application", "xml") -> "xml"
+                ("text", "xml") -> "xml"
                 ("application", "json") -> "javascript"
                 ("application", "javascript") -> "javascript"
                 ("text", "css") -> "css"