From 4dabcc27f69f6d2ec0b5ed7829927cc58b39f8c9 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 27 May 2017 23:16:07 +0200 Subject: Pretty: Eq instance for Doc. --- src/Text/Pandoc/Pretty.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Pretty.hs b/src/Text/Pandoc/Pretty.hs index a432949c8..d78a2f1d9 100644 --- a/src/Text/Pandoc/Pretty.hs +++ b/src/Text/Pandoc/Pretty.hs @@ -108,10 +108,10 @@ data D = Text Int String | CarriageReturn | NewLine | BlankLines Int -- number of blank lines - deriving (Show) + deriving (Show, Eq) newtype Doc = Doc { unDoc :: Seq D } - deriving (Monoid, Show) + deriving (Monoid, Show, Eq) instance IsString Doc where fromString = text -- cgit v1.2.3