git.iko.soy/typeable/servant
on master help sign in
Combine rendering of code samples for request/response bodies

This does mean that the "Example" portion for reqeust bodies is lost though.

commit41d75b4de80b99da3896ad3717b60e94ad70036e authorIvan Lazar Miljenovic <Ivan.Miljenovic@gmail.com> dateThu 5 Oct 2017, 14:48 (9 years ago) parent4f8df0e
1 file changed+6−3
compare with master
unifiedsplit
servant-docs/src/Servant/Docs/Internal.hs+6−3
servant-docs/src/Servant/Docs/Internal.hs+6−3
@@ -632,15 +632,18 @@ markdown api = unlines $
632632 rqbodyStr types s =
633633 ["#### Request:", ""]
634634 <> formatTypes types
635− <> concatMap formatBody s
635+ <> formatBodies s
636636
637637 formatTypes [] = []
638638 formatTypes ts = ["- Supported content types are:", ""]
639639 <> map (\t -> " - `" <> show t <> "`") ts
640640 <> [""]
641641
642+ formatBodies :: [(Text, M.MediaType, ByteString)] -> [String]
643+ formatBodies = concatMap formatBody
644+
642645 formatBody (t, m, b) =
643− "- Example (" <> cs t <> "): `" <> cs (show m) <> "`" :
646+ "- " <> cs t <> " (`" <> cs (show m) <> "`):" :
644647 contentStr m b
645648
646649 markdownForType mime_type =
@@ -676,7 +679,7 @@ markdown api = unlines $
676679 [] -> ["- No response body\n"]
677680 [("", t, r)] -> "- Response body as below." : contentStr t r
678681 xs ->
679− concatMap (\(ctx, t, r) -> ("- " <> T.unpack ctx <> " (`" <> cs (show t) <> "`)") : contentStr t r) xs
682+ formatBodies xs
680683
681684-- * Instances
682685