Pretty: Eq instance for Doc.
commit4dabcc27f69f6d2ec0b5ed7829927cc58b39f8c9
authorJohn MacFarlane <jgm@berkeley.edu>
dateSat 27 May 2017, 23:16 (9 years ago)
parentbf93c07
src/Text/Pandoc/Pretty.hs+2−2
@@ -108,10 +108,10 @@ data D = Text Int String
108108 | CarriageReturn
109109 | NewLine
110110 | BlankLines Int -- number of blank lines
111− deriving (Show)
111+ deriving (Show, Eq)
112112
113113newtype Doc = Doc { unDoc :: Seq D }
114− deriving (Monoid, Show)
114+ deriving (Monoid, Show, Eq)
115115
116116instance IsString Doc where
117117 fromString = text