diff options
| -rw-r--r-- | src/Text/Pandoc/Pretty.hs | 5 |
1 files changed, 1 insertions, 4 deletions
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 |