From 0c4965847f00b0aa47a89a24d638e4949c247bd9 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Thu, 28 Feb 2013 20:12:21 -0800
Subject: [PATCH] Pretty: Better Show instance for debugging purposes.
---
src/Text/Pandoc/Pretty.hs | 5 +----
1 file changed, 1 insertion(+), 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