diff options
| -rw-r--r-- | tests/Tests/Readers/RST.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/Tests/Readers/RST.hs b/tests/Tests/Readers/RST.hs index 8fa2e4828..0fc8ecc32 100644 --- a/tests/Tests/Readers/RST.hs +++ b/tests/Tests/Readers/RST.hs @@ -8,7 +8,6 @@ import Tests.Arbitrary() import Text.Pandoc.Builder import Text.Pandoc import Text.Pandoc.Error -import qualified Data.Sequence as Seq rst :: String -> Pandoc rst = handleError . readRST def{ readerStandalone = True } @@ -103,11 +102,12 @@ tests = [ "line block with blank line" =: , " def func(x):" , " return y" ] =?> - ( doc . Many . Seq.singleton $ - CodeBlock ( "" - , ["sourceCode", "python", "numberLines", "class1", "class2", "class3"] - , [ ("startFrom", "34") ] - ) "def func(x):\n return y" + ( doc $ codeBlockWith + ( "" + , ["sourceCode", "python", "numberLines", "class1", "class2", "class3"] + , [ ("startFrom", "34") ] + ) + "def func(x):\n return y" ) , testGroup "literal / line / code blocks" [ "indented literal block" =: unlines |