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

Handle request/response bodies with empty titles

Browse source
This commit is contained in:
Ivan Lazar Miljenovic 2017-10-06 13:19:04 +11:00
parent a21beadf86
commit ed3ace3066
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -719,11 +719,15 @@ markdownWith RenderingOptions{..} api = unlines $
formatBody :: (Text, NonEmpty M.MediaType, ByteString) -> [String] formatBody :: (Text, NonEmpty M.MediaType, ByteString) -> [String]
formatBody (t, ms, b) = formatBody (t, ms, b) =
"- " <> cs t <> " (" <> mediaList ms <> "):" : "- " <> title <> " (" <> mediaList ms <> "):" :
contentStr (NE.head ms) b contentStr (NE.head ms) b
where where
mediaList = fold . NE.intersperse ", " . fmap (\m -> "`" ++ show m ++ "`") mediaList = fold . NE.intersperse ", " . fmap (\m -> "`" ++ show m ++ "`")
title
| T.null t = "Example"
| otherwise = cs t
markdownForType mime_type = markdownForType mime_type =
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"