Modified readers for new parameter in CodeBlock.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1199 788f1e2b-df1e-0410-8736-df70ead52e1b
commit9f7a14c210aed7cabcbd23721ffbcf491d54b085
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
dateSat 9 Feb 2008, 03:18 (19 years ago)
parent6a921f0
Text/Pandoc/Readers/HTML.hs+1−1
@@ -407,7 +407,7 @@ codeBlock = try $ do
407407 let result''' = if "\n" `isSuffixOf` result''
408408 then init result''
409409 else result''
410− return $ CodeBlock $ decodeCharacterReferences result'''
410+ return $ CodeBlock "" $ decodeCharacterReferences result'''
411411
412412--
413413-- block quotes
Text/Pandoc/Readers/LaTeX.hs+3−3
@@ -182,14 +182,14 @@ codeBlock1 = try $ do
182182 -- leading space
183183 contents <- manyTill anyChar (try (string "\\end{verbatim}"))
184184 spaces
185− return $ CodeBlock (stripTrailingNewlines contents)
185+ return $ CodeBlock "" (stripTrailingNewlines contents)
186186
187187codeBlock2 = try $ do
188188 string "\\begin{Verbatim}" -- used by fancyvrb package
189− option "" blanklines
189+ optional blanklines
190190 contents <- manyTill anyChar (try (string "\\end{Verbatim}"))
191191 spaces
192− return $ CodeBlock (stripTrailingNewlines contents)
192+ return $ CodeBlock "" (stripTrailingNewlines contents)
193193
194194--
195195-- block quotes
Text/Pandoc/Readers/Markdown.hs+1−1
@@ -301,7 +301,7 @@ codeBlock = do
301301 l <- indentedLine
302302 return $ b ++ l))
303303 optional blanklines
304− return $ CodeBlock $ stripTrailingNewlines $ concat contents
304+ return $ CodeBlock "" $ stripTrailingNewlines $ concat contents
305305
306306--
307307-- block quotes
Text/Pandoc/Readers/RST.hs+1−1
@@ -304,7 +304,7 @@ indentedBlock = do
304304codeBlock = try $ do
305305 codeBlockStart
306306 result <- indentedBlock
307− return $ CodeBlock $ stripTrailingNewlines result
307+ return $ CodeBlock "" $ stripTrailingNewlines result
308308
309309--
310310-- raw html