diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-02-28 20:12:21 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-02-28 20:12:21 -0800 |
| commit | 0c4965847f00b0aa47a89a24d638e4949c247bd9 (patch) | |
| tree | 5f53ce1cedf94178326552f9d52ceb3e8e39915a | |
| parent | 0c9bb4040363d990cb1f59bcc5b39ff78508cad9 (diff) | |
| download | pandoc-0c4965847f00b0aa47a89a24d638e4949c247bd9.tar.gz | |
Pretty: Better Show instance for debugging purposes.
| -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 |