diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-05-27 23:16:07 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-05-27 23:18:45 +0200 |
| commit | 4dabcc27f69f6d2ec0b5ed7829927cc58b39f8c9 (patch) | |
| tree | a38d600476366a9fe44fc0b6c2ce4fdaa1d0d3be /src/Text | |
| parent | bf93c07267bf138f4f4cab7625ff273fa2ac67cd (diff) | |
| download | pandoc-4dabcc27f69f6d2ec0b5ed7829927cc58b39f8c9.tar.gz | |
Pretty: Eq instance for Doc.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Pretty.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |