summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/Org.hs
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2017-12-19 13:16:08 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2017-12-19 13:30:48 +0300
commitef8430e70269d0332f802986c9ef570faad8faa0 (patch)
treeed8d05dbf6d8b3e3043ab8e8631927323cf72170 /src/Text/Pandoc/Writers/Org.hs
parent46d3c95ecd863d1385299ffb8e2b330e1fbdb2c1 (diff)
Fix for #4171 fix: don't wrap note references after SoftBreak
Diffstat (limited to 'src/Text/Pandoc/Writers/Org.hs')
-rw-r--r--src/Text/Pandoc/Writers/Org.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs
index b2f9bbc53..e10fcd5ce 100644
--- a/src/Text/Pandoc/Writers/Org.hs
+++ b/src/Text/Pandoc/Writers/Org.hs
@@ -312,6 +312,8 @@ inlineListToOrg lst = hcat <$> mapM inlineToOrg (fixNotes lst)
where fixNotes [] = [] -- prevent note ref from wrapping, see #4171
fixNotes (Space : n@Note{} : rest) =
Str " " : n : fixNotes rest
+ fixNotes (SoftBreak : n@Note{} : rest) =
+ Str " " : n : fixNotes rest
fixNotes (x : rest) = x : fixNotes rest
-- | Convert Pandoc inline element to Org.