@@ -27,15 +27,14 @@ infix 4 =:
27spcSep :: [Inlines] -> Inlines
27spcSep :: [Inlines] -> Inlines
28spcSep = mconcat . intersperse space
28spcSep = mconcat . intersperse space
30−-- Tables and definition lists don't round-trip yet
30+-- Tables don't round-trip yet
32makeRoundTrip :: Block -> Block
32makeRoundTrip :: Block -> Block
33makeRoundTrip Table{} = Para [Str "table was here"]
33makeRoundTrip Table{} = Para [Str "table was here"]
34−makeRoundTrip DefinitionList{} = Para [Str "deflist was here"]
35makeRoundTrip x = x
34makeRoundTrip x = x
37-- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way.
36-- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way.
38−-- Currently we remove code blocks and tables and compare third rewrite to the second.
37+-- Currently we remove tables and compare third rewrite to the second.
39-- First and second rewrites are not equal yet.
38-- First and second rewrites are not equal yet.
40roundTrip :: Block -> Bool
39roundTrip :: Block -> Bool
41roundTrip b = d'' == d'''
40roundTrip b = d'' == d'''