diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-07-01 11:49:58 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-07-01 11:49:58 -0700 |
| commit | b5d3b4f6089eac5320f08911e435a626f90a389d (patch) | |
| tree | 23772e0a0db55e50640984127e65a25def49a469 /src/Text/Pandoc | |
| parent | 8e747004e6b28ef2567963517451c9fb581256bd (diff) | |
| parent | 125b0c73598ea40c271fa0c33c713a21a4f6d812 (diff) | |
| download | pandoc-b5d3b4f6089eac5320f08911e435a626f90a389d.tar.gz | |
Merge pull request #2255 from mchladek/odt_linebreak
Fix #2254 : OpenDocument writer adds space with hard line break
Diffstat (limited to 'src/Text/Pandoc')
| -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 59ac4e526..83e17c943 100644 --- a/src/Text/Pandoc/Writers/OpenDocument.hs +++ b/src/Text/Pandoc/Writers/OpenDocument.hs @@ -378,7 +378,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" [] <> cr + | LineBreak <- ils = return $ selfClosingTag "text:line-break" [] | Str s <- ils = inTextStyle $ handleSpaces $ escapeStringForXML s | Emph l <- ils = withTextStyle Italic $ inlinesToOpenDocument o l | Strong l <- ils = withTextStyle Bold $ inlinesToOpenDocument o l |