diff options
| author | Michael Chladek <mchladek@gmail.com> | 2015-07-01 09:43:36 -0500 |
|---|---|---|
| committer | Michael Chladek <mchladek@gmail.com> | 2015-07-01 09:43:36 -0500 |
| commit | 125b0c73598ea40c271fa0c33c713a21a4f6d812 (patch) | |
| tree | 32edc249a0011536fa4d1fea5cd588e9165b4607 /src/Text/Pandoc | |
| parent | 6862aa26871071a5e9072e32f559321af3f88793 (diff) | |
| download | pandoc-125b0c73598ea40c271fa0c33c713a21a4f6d812.tar.gz | |
Do not add a carriage return after a hard line break in OpenDocument writer and reflect change in tests.
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 |