diff options
| author | John MacFarlane <[email protected]> | 2021-10-02 12:21:41 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2021-10-02 12:21:41 -0700 |
| commit | 33a792ff393a0ed99499187fceaea49845fa0b10 (patch) | |
| tree | 14c456ba890e95e64fc0ff78d7ce943b94db6005 | |
| parent | 3d3ab57e200dcba9eaeae57ca632e584fc55b627 (diff) | |
More improvements to breakable.
| -rw-r--r-- | src/Text/Pandoc/Writers/Shared.hs | 6 | ||||
| -rw-r--r-- | test/docx/golden/custom_style_no_reference.docx | bin | 9931 -> 9930 bytes | |||
| -rw-r--r-- | test/docx/golden/custom_style_reference.docx | bin | 12368 -> 12366 bytes |
3 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Shared.hs b/src/Text/Pandoc/Writers/Shared.hs index f6feb03e2..06f5d4d5c 100644 --- a/src/Text/Pandoc/Writers/Shared.hs +++ b/src/Text/Pandoc/Writers/Shared.hs @@ -548,8 +548,12 @@ breakable t | T.any (== ' ') t = mconcat $ foldr go mempty (T.split (==' ') t) | otherwise = Text (realLength t) t where - go "" xs = BreakingSpace : xs + go "" xs = + case xs of + BreakingSpace : _ -> xs + _ -> BreakingSpace : xs go t' xs = Text (realLength t') t' : case xs of [] -> xs + BreakingSpace : _ -> xs _ -> BreakingSpace : xs diff --git a/test/docx/golden/custom_style_no_reference.docx b/test/docx/golden/custom_style_no_reference.docx Binary files differindex 49cf42f38..71688a222 100644 --- a/test/docx/golden/custom_style_no_reference.docx +++ b/test/docx/golden/custom_style_no_reference.docx diff --git a/test/docx/golden/custom_style_reference.docx b/test/docx/golden/custom_style_reference.docx Binary files differindex e7da8f06d..4ae6bfcbe 100644 --- a/test/docx/golden/custom_style_reference.docx +++ b/test/docx/golden/custom_style_reference.docx |