diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-28 11:17:15 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-28 11:18:05 -0800 |
| commit | f53e0a44ce6bd9457d042d191524e0ea2f773b33 (patch) | |
| tree | 681e65e2adf36591fb3cfdb6370603f5c922f29a /src/Text/Pandoc | |
| parent | 2e00ca20de28598399bbcba8e45dc09366ae9db4 (diff) | |
| download | pandoc-f53e0a44ce6bd9457d042d191524e0ea2f773b33.tar.gz | |
DocBook writer: for linebreak, but newline in literallayout.
Closes #725.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docbook.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs index f11338590..90bd1d3a4 100644 --- a/src/Text/Pandoc/Writers/Docbook.hs +++ b/src/Text/Pandoc/Writers/Docbook.hs @@ -282,7 +282,7 @@ inlineToDocbook opts (Math t str) fixNS = everywhere (mkT fixNS') inlineToDocbook _ (RawInline f x) | f == "html" || f == "docbook" = text x | otherwise = empty -inlineToDocbook _ LineBreak = inTagsSimple "literallayout" empty +inlineToDocbook _ LineBreak = flush $ inTagsSimple "literallayout" (text "\n") inlineToDocbook _ Space = space inlineToDocbook opts (Link txt (src, _)) = if isPrefixOf "mailto:" src |