diff --git a/src/Text/Pandoc/Pretty.hs b/src/Text/Pandoc/Pretty.hs
index 211fdf20e..3b905b1c5 100644
--- a/src/Text/Pandoc/Pretty.hs
+++ b/src/Text/Pandoc/Pretty.hs
@@ -104,10 +104,7 @@ data D = Text Int String
        deriving (Show)
 
 newtype Doc = Doc { unDoc :: Seq D }
-              deriving (Monoid)
-
-instance Show Doc where
-  show = render Nothing
+              deriving (Monoid, Show)
 
 instance IsString Doc where
   fromString = text