Pretty: Better Show instance for debugging purposes.
commit0c4965847f00b0aa47a89a24d638e4949c247bd9
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateThu 28 Feb 2013, 20:12 (14 years ago)
parent0c9bb40
src/Text/Pandoc/Pretty.hs+1−4
@@ -104,10 +104,7 @@ data D = Text Int String
104104 deriving (Show)
105105
106106newtype Doc = Doc { unDoc :: Seq D }
107− deriving (Monoid)
108−
109−instance Show Doc where
110− show = render Nothing
107+ deriving (Monoid, Show)
111108
112109instance IsString Doc where
113110 fromString = text