Use `codeBlockWith`

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