diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-02-09 03:18:22 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-02-09 03:18:22 +0000 |
commit | 2c13782fdf4f122fce6fb910a1e13a832455c0b0 (patch) | |
tree | b3185526eae99311ad934e43014970ec41e5066a /Text/Pandoc/Writers/Docbook.hs | |
parent | 9f7a14c210aed7cabcbd23721ffbcf491d54b085 (diff) | |
download | pandoc-2c13782fdf4f122fce6fb910a1e13a832455c0b0.tar.gz |
Modified writers for new argument place in CodeBlock.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1200 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc/Writers/Docbook.hs')
-rw-r--r-- | Text/Pandoc/Writers/Docbook.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Text/Pandoc/Writers/Docbook.hs b/Text/Pandoc/Writers/Docbook.hs index f0fde18a4..51a4497fa 100644 --- a/Text/Pandoc/Writers/Docbook.hs +++ b/Text/Pandoc/Writers/Docbook.hs @@ -186,7 +186,7 @@ blockToDocbook opts (Plain lst) = wrap opts lst blockToDocbook opts (Para lst) = inTagsIndented "para" $ wrap opts lst blockToDocbook opts (BlockQuote blocks) = inTagsIndented "blockquote" $ blocksToDocbook opts blocks -blockToDocbook opts (CodeBlock str) = +blockToDocbook opts (CodeBlock _ str) = text "<screen>\n" <> text (escapeStringForXML str) <> text "\n</screen>" blockToDocbook opts (BulletList lst) = inTagsIndented "itemizedlist" $ listItemsToDocbook opts lst |