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