From 78816497f3d1691daf5c1a43f9bd8b8908f6f312 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 13 Dec 2011 14:29:07 -0800 Subject: Use pandoc-types 1.9.*. --- src/Tests/Readers/RST.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/Tests/Readers/RST.hs') diff --git a/src/Tests/Readers/RST.hs b/src/Tests/Readers/RST.hs index 4b8c9301b..d7e3a9c0d 100644 --- a/src/Tests/Readers/RST.hs +++ b/src/Tests/Readers/RST.hs @@ -18,8 +18,8 @@ infix 5 =: tests :: [Test] tests = [ "line block with blank line" =: - "| a\n|\n| b" =?> para (str "a" +++ linebreak +++ - linebreak +++ str " " +++ str "b") + "| a\n|\n| b" =?> para (str "a" <> linebreak <> + linebreak <> str " " <> str "b") , "field list" =: [_LIT| :Hostname: media08 @@ -51,10 +51,10 @@ tests = [ "line block with blank line" =: , "URLs with following punctuation" =: ("http://google.com, http://yahoo.com; http://foo.bar.baz.\n" ++ "http://foo.bar/baz_(bam) (http://foo.bar)") =?> - para (link "http://google.com" "" "http://google.com" +++ ", " +++ - link "http://yahoo.com" "" "http://yahoo.com" +++ "; " +++ - link "http://foo.bar.baz" "" "http://foo.bar.baz" +++ ". " +++ + para (link "http://google.com" "" "http://google.com" <> ", " <> + link "http://yahoo.com" "" "http://yahoo.com" <> "; " <> + link "http://foo.bar.baz" "" "http://foo.bar.baz" <> ". " <> link "http://foo.bar/baz_(bam)" "" "http://foo.bar/baz_(bam)" - +++ " (" +++ link "http://foo.bar" "" "http://foo.bar" +++ ")") + <> " (" <> link "http://foo.bar" "" "http://foo.bar" <> ")") ] -- cgit v1.2.3