Modified readers for new parameter in CodeBlock.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1199 788f1e2b-df1e-0410-8736-df70ead52e1b

Text/Pandoc/Readers/HTML.hs

@@ -407,7 +407,7 @@ codeBlock = try $ do
     let result''' = if "\n" `isSuffixOf` result''
                        then init result''
                        else result''
-    return $ CodeBlock $ decodeCharacterReferences result'''
+    return $ CodeBlock "" $ decodeCharacterReferences result'''
 
 --
 -- block quotes

Text/Pandoc/Readers/LaTeX.hs

@@ -182,14 +182,14 @@ codeBlock1 = try $ do
                               -- leading space
   contents <- manyTill anyChar (try (string "\\end{verbatim}"))
   spaces
-  return $ CodeBlock (stripTrailingNewlines contents)
+  return $ CodeBlock "" (stripTrailingNewlines contents)
 
 codeBlock2 = try $ do
   string "\\begin{Verbatim}"  -- used by fancyvrb package
-  option "" blanklines
+  optional blanklines
   contents <- manyTill anyChar (try (string "\\end{Verbatim}"))
   spaces
-  return $ CodeBlock (stripTrailingNewlines contents)
+  return $ CodeBlock "" (stripTrailingNewlines contents)
 
 --
 -- block quotes

Text/Pandoc/Readers/Markdown.hs

@@ -301,7 +301,7 @@ codeBlock = do
                              l <- indentedLine
                              return $ b ++ l))
   optional blanklines
-  return $ CodeBlock $ stripTrailingNewlines $ concat contents
+  return $ CodeBlock "" $ stripTrailingNewlines $ concat contents
 
 --
 -- block quotes

Text/Pandoc/Readers/RST.hs

@@ -304,7 +304,7 @@ indentedBlock = do
 codeBlock = try $ do
   codeBlockStart
   result <- indentedBlock
-  return $ CodeBlock $ stripTrailingNewlines result
+  return $ CodeBlock "" $ stripTrailingNewlines result
 
 --
 -- raw html