aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-05-27 23:16:07 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2017-05-27 23:18:45 +0200
commit4dabcc27f69f6d2ec0b5ed7829927cc58b39f8c9 (patch)
treea38d600476366a9fe44fc0b6c2ce4fdaa1d0d3be /src/Text
parentbf93c07267bf138f4f4cab7625ff273fa2ac67cd (diff)
downloadpandoc-4dabcc27f69f6d2ec0b5ed7829927cc58b39f8c9.tar.gz
Pretty: Eq instance for Doc.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Pretty.hs4
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