@@ -220,9 +220,8 @@ tests =
220220 ]
221221
222222 , testGroup "Blocks" $
223− [ -- round-trip commented out for now, because it fails too often:
224− testProperty "Round trip" roundTrip | False ] ++
225− [ "Block elements end paragraphs" =:
223+ [ testProperty "Round trip" roundTrip
224+ , "Block elements end paragraphs" =:
226225 T.unlines [ "First paragraph"
227226 , "----"
228227 , "Second paragraph"