@@ -36,14 +36,12 @@ makeRoundTrip (OrderedList (start, UpperAlpha, _) items) = OrderedList (start, D
3636makeRoundTrip x = x
3737
3838-- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way.
39−-- Currently we remove tables and compare third rewrite to the second.
40−-- First and second rewrites are not equal yet.
39+-- Currently we remove tables and compare first rewrite to the second.
4140roundTrip :: Block -> Bool
42−roundTrip b = d'' == d'''
41+roundTrip b = d' == d''
4342 where d = walk makeRoundTrip $ Pandoc nullMeta [b]
4443 d' = rewrite d
4544 d'' = rewrite d'
46− d''' = rewrite d''
4745 rewrite = amuse . T.pack . (++ "\n") . T.unpack .
4846 purely (writeMuse def { writerExtensions = extensionsFromList [Ext_amuse]
4947 , writerWrapText = WrapPreserve