fc5802f · servant · git.iko.soy

git.iko.soy/servant

on master help sign in

Show, rather than convert, media types

fc5802fThomas Sutton12 years ago

servant-docs.cabal+1−1

@@ -45,5 +45,5 @@ executable greet-docs

45 main-is: greet.hs

46 hs-source-dirs: example

47 ghc-options: -Wall

48− build-depends: base, aeson, aeson-pretty, servant, servant-docs, string-conversions, text

48+ build-depends: base, aeson, servant, servant-docs, string-conversions, text

49 default-language: Haskell2010

src/Servant/Docs.hs+1−1

@@ -625,7 +625,7 @@ markdown api = unlines $

625 <> [""]

626

627 formatBody (m, b) =

628− "- Example: `" <> cs (M.mainType m <> "/" <> M.subType m) <> "`" :

628+ "- Example: `" <> cs (show m) <> "`" :

629 contentStr m b

630

631 markdownForType mime_type =