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

Show, rather than convert, media types

Browse source
This commit is contained in:
Thomas Sutton 2015-02-23 09:38:19 +11:00
parent 97ff49c3c4
commit fc5802fe7f
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-docs.cabal
View file

@ -45,5 +45,5 @@ executable greet-docs
main-is: greet.hs main-is: greet.hs
hs-source-dirs: example hs-source-dirs: example
ghc-options: -Wall ghc-options: -Wall
build-depends: base, aeson, aeson-pretty, servant, servant-docs, string-conversions, text build-depends: base, aeson, servant, servant-docs, string-conversions, text
default-language: Haskell2010 default-language: Haskell2010

2
src/Servant/Docs.hs
View file

@ -625,7 +625,7 @@ markdown api = unlines $
<> [""] <> [""]
formatBody (m, b) = formatBody (m, b) =
"- Example: `" <> cs (M.mainType m <> "/" <> M.subType m) <> "`" : "- Example: `" <> cs (show m) <> "`" :
contentStr m b contentStr m b
markdownForType mime_type = markdownForType mime_type =