fc5802f · servant · git.iko.soy

git.iko.soy/servant

Show, rather than convert, media types

commitfc5802fe7fba1b10112b4b34647c0083a28b57de authorThomas Sutton <me@thomas-sutton.id.au> dateMon 23 Feb 2015, 09:38 (12 years ago) parent97ff49c

2 files changed+2−2

unifiedsplit

servant-docs.cabal+1−1

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

4545 main-is: greet.hs

4646 hs-source-dirs: example

4747 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

4949 default-language: Haskell2010

src/Servant/Docs.hs+1−1

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

625625 <> [""]

626626

627627 formatBody (m, b) =

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

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

629629 contentStr m b

630630

631631 markdownForType mime_type =