From fc5802fe7fba1b10112b4b34647c0083a28b57de Mon Sep 17 00:00:00 2001
From: Thomas Sutton <me@thomas-sutton.id.au>
Date: Mon, 23 Feb 2015 09:38:19 +1100
Subject: [PATCH] Show, rather than convert, media types

---
 servant-docs.cabal  | 2 +-
 src/Servant/Docs.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/servant-docs.cabal b/servant-docs.cabal
index d45cbbbf..32c18230 100644
--- a/servant-docs.cabal
+++ b/servant-docs.cabal
@@ -45,5 +45,5 @@ executable greet-docs
   main-is: greet.hs
   hs-source-dirs: example
   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
diff --git a/src/Servant/Docs.hs b/src/Servant/Docs.hs
index f156f643..6a3e5e59 100644
--- a/src/Servant/Docs.hs
+++ b/src/Servant/Docs.hs
@@ -625,7 +625,7 @@ markdown api = unlines $
             <> [""]
 
         formatBody (m, b) =
-          "- Example: `" <> cs (M.mainType m <> "/" <> M.subType m) <> "`" :
+          "- Example: `" <> cs (show m) <> "`" :
           contentStr m b
 
         markdownForType mime_type =