From d7bc8c06324a0ca0ce32ece35a5dc157dadc4187 Mon Sep 17 00:00:00 2001
From: Sidharth Kapur <sidharthkapur1@gmail.com>
Date: Sun, 1 May 2016 22:32:26 -0500
Subject: Use `codeBlockWith`

---
 tests/Tests/Readers/RST.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'tests')

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
-- 
cgit v1.2.3