git.iko.soy/servant
on master help sign in
Handle request/response bodies with empty titles
ed3ace3Ivan Lazar Miljenovic
servant-docs/src/Servant/Docs/Internal.hs+5−1
compare with master
unifiedsplit
@@ -719,11 +719,15 @@ markdownWith RenderingOptions{..} api = unlines $
719
719
720 formatBody :: (Text, NonEmpty M.MediaType, ByteString) -> [String]
720 formatBody :: (Text, NonEmpty M.MediaType, ByteString) -> [String]
721 formatBody (t, ms, b) =
721 formatBody (t, ms, b) =
722− "- " <> cs t <> " (" <> mediaList ms <> "):" :
722+ "- " <> title <> " (" <> mediaList ms <> "):" :
723 contentStr (NE.head ms) b
723 contentStr (NE.head ms) b
724 where
724 where
725 mediaList = fold . NE.intersperse ", " . fmap (\m -> "`" ++ show m ++ "`")
725 mediaList = fold . NE.intersperse ", " . fmap (\m -> "`" ++ show m ++ "`")
726
726
727+ title
728+ | T.null t = "Example"
729+ | otherwise = cs t
730+
727 markdownForType mime_type =
731 markdownForType mime_type =
728 case (M.mainType mime_type, M.subType mime_type) of
732 case (M.mainType mime_type, M.subType mime_type) of
729 ("text", "html") -> "html"
733 ("text", "html") -> "html"