From e1cc9d9abc777360fb5a0b75c902cae2218839eb Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Fri, 19 Jan 2018 16:05:14 +0300 Subject: Muse reader: enable definition lists in round-trip test --- test/Tests/Readers/Muse.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs index 76c18135e..2ef2af2bc 100644 --- a/test/Tests/Readers/Muse.hs +++ b/test/Tests/Readers/Muse.hs @@ -27,15 +27,14 @@ infix 4 =: spcSep :: [Inlines] -> Inlines spcSep = mconcat . intersperse space --- Tables and definition lists don't round-trip yet +-- Tables don't round-trip yet makeRoundTrip :: Block -> Block makeRoundTrip Table{} = Para [Str "table was here"] -makeRoundTrip DefinitionList{} = Para [Str "deflist was here"] makeRoundTrip x = x -- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way. --- Currently we remove code blocks and tables and compare third rewrite to the second. +-- Currently we remove tables and compare third rewrite to the second. -- First and second rewrites are not equal yet. roundTrip :: Block -> Bool roundTrip b = d'' == d''' -- cgit v1.2.3