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

Merge pull request #813 from ivan-m/response-content-type

Browse source 
List content type with response examples
This commit is contained in:
Alp Mestanogullari 2017-09-25 10:38:02 +02:00 committed by GitHub
commit 4a6edd7864
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
servant-docs/CHANGELOG.md
View file

@ -6,6 +6,7 @@
* Add a markdown header for the Headers an endpoint is sensitive to. * Add a markdown header for the Headers an endpoint is sensitive to.
* Document the HTTP Method the parameters of an endpoint belong to * Document the HTTP Method the parameters of an endpoint belong to
(rather than assuming `GET` for all of them). (rather than assuming `GET` for all of them).
* Content type of sample response body is also displayed.
0.11 0.11
---- ----

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

@ -674,7 +674,7 @@ markdown api = unlines $
[] -> ["- No response body\n"] [] -> ["- No response body\n"]
[("", t, r)] -> "- Response body as below." : contentStr t r [("", t, r)] -> "- Response body as below." : contentStr t r
xs -> xs ->
concatMap (\(ctx, t, r) -> ("- " <> T.unpack ctx) : contentStr t r) xs concatMap (\(ctx, t, r) -> ("- " <> T.unpack ctx <> " (`" <> cs (show t) <> "`)") : contentStr t r) xs
-- * Instances -- * Instances