diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-02-07 20:21:58 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-02-07 20:21:58 -0800 |
| commit | 0a1cd2531243d2fd82e442448602705ac9174873 (patch) | |
| tree | d9ee294bfe88e14932b84dae8f42525d2ea0d9a0 /src/Text/Pandoc/Writers/OpenDocument.hs | |
| parent | fb7a03dcda6872e5f41c16783dc66244805ac44a (diff) | |
| parent | 0c18f3a854efaba54367f66d0f572afcab7d57f0 (diff) | |
| download | pandoc-0a1cd2531243d2fd82e442448602705ac9174873.tar.gz | |
Merge pull request #1925 from timtylin/patch/prettyLineBreaks
Append newline to the LineBreak of various writers
Diffstat (limited to 'src/Text/Pandoc/Writers/OpenDocument.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/OpenDocument.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/OpenDocument.hs b/src/Text/Pandoc/Writers/OpenDocument.hs index 901f827fb..865b7fb35 100644 --- a/src/Text/Pandoc/Writers/OpenDocument.hs +++ b/src/Text/Pandoc/Writers/OpenDocument.hs @@ -370,7 +370,7 @@ inlineToOpenDocument :: WriterOptions -> Inline -> State WriterState Doc inlineToOpenDocument o ils | Space <- ils = inTextStyle space | Span _ xs <- ils = inlinesToOpenDocument o xs - | LineBreak <- ils = return $ selfClosingTag "text:line-break" [] + | LineBreak <- ils = return $ selfClosingTag "text:line-break" [] <> cr | Str s <- ils = inTextStyle $ handleSpaces $ escapeStringForXML s | Emph l <- ils = withTextStyle Italic $ inlinesToOpenDocument o l | Strong l <- ils = withTextStyle Bold $ inlinesToOpenDocument o l |