Show, rather than convert, media types

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

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 =