aboutsummaryrefslogtreecommitdiff
path: root/test/Tests
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-09-11 19:23:46 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-09-11 19:23:46 +0300
commitca420983aa83a9988ec3c0093c494ca4357fab7f (patch)
treeb3e7376ad176b8c932bf2a3ecc4afa65ad51226c /test/Tests
parent0ac3512cfe39761bb7ced6d9b624315c94c2cc8d (diff)
downloadpandoc-ca420983aa83a9988ec3c0093c494ca4357fab7f.tar.gz
HTML reader tests: accept Blocks in round trip test
Diffstat (limited to 'test/Tests')
-rw-r--r--test/Tests/Readers/HTML.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/test/Tests/Readers/HTML.hs b/test/Tests/Readers/HTML.hs
index 72f90cabd..1f7f2f970 100644
--- a/test/Tests/Readers/HTML.hs
+++ b/test/Tests/Readers/HTML.hs
@@ -30,9 +30,9 @@ removeRawInlines :: Inline -> Inline
removeRawInlines RawInline{} = Str "raw inline was here"
removeRawInlines x = x
-roundTrip :: Block -> Bool
+roundTrip :: Blocks -> Bool
roundTrip b = d'' == d'''
- where d = walk removeRawInlines $ walk makeRoundTrip $ Pandoc nullMeta [b]
+ where d = walk removeRawInlines $ walk makeRoundTrip $ Pandoc nullMeta $ toList b
d' = rewrite d
d'' = rewrite d'
d''' = rewrite d''