eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add markdown type for text/xml

Browse source 
As it's an alternative mime-type for XML
This commit is contained in:
Ivan Lazar Miljenovic 2017-10-05 14:32:06 +11:00
parent 63d8f6c0f3
commit 061bf7a5b1
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
servant-docs/src/Servant/Docs/Internal.hs
View file

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