diff options
-rw-r--r-- | Text/Pandoc/Readers/HTML.hs | 2 | ||||
-rw-r--r-- | Text/Pandoc/Readers/LaTeX.hs | 6 | ||||
-rw-r--r-- | Text/Pandoc/Readers/Markdown.hs | 2 | ||||
-rw-r--r-- | Text/Pandoc/Readers/RST.hs | 2 |
4 files changed, 6 insertions, 6 deletions
diff --git a/Text/Pandoc/Readers/HTML.hs b/Text/Pandoc/Readers/HTML.hs index a317d6fa1..2528de7b7 100644 --- a/Text/Pandoc/Readers/HTML.hs +++ b/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 diff --git a/Text/Pandoc/Readers/LaTeX.hs b/Text/Pandoc/Readers/LaTeX.hs index 20b814d4a..aa1e73704 100644 --- a/Text/Pandoc/Readers/LaTeX.hs +++ b/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 diff --git a/Text/Pandoc/Readers/Markdown.hs b/Text/Pandoc/Readers/Markdown.hs index ecf05b18d..8d7a274bf 100644 --- a/Text/Pandoc/Readers/Markdown.hs +++ b/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 diff --git a/Text/Pandoc/Readers/RST.hs b/Text/Pandoc/Readers/RST.hs index 30d867e38..85bc95fa3 100644 --- a/Text/Pandoc/Readers/RST.hs +++ b/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 |