diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2011-01-22 23:26:44 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2011-01-22 23:26:44 -0800 |
| commit | d562efa39d275ecd7b26d9952cec01bc5eca10d7 (patch) | |
| tree | 3a213bd570f71d1852c5548ddc57f6b6fd465a2f /src/Text | |
| parent | ea5cd350042f31a66ee0d59e885d34598f9cc5a1 (diff) | |
| download | pandoc-d562efa39d275ecd7b26d9952cec01bc5eca10d7.tar.gz | |
ConTeXt writer: Ensure cr after \stoptyping.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index 3d1f9cb38..06e81f7a4 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -122,7 +122,7 @@ blockToConTeXt (BlockQuote lst) = do contents <- blockListToConTeXt lst return $ "\\startblockquote" $$ nest 0 contents $$ "\\stopblockquote" <> blankline blockToConTeXt (CodeBlock _ str) = - return $ "\\starttyping" <> cr <> flush (text str) <> cr <> "\\stoptyping" <> blankline + return $ "\\starttyping" <> cr <> flush (text str) <> cr <> "\\stoptyping" $$ blankline -- blankline because \stoptyping can't have anything after it, inc. '}' blockToConTeXt (RawHtml _) = return empty blockToConTeXt (BulletList lst) = do |