From 33a792ff393a0ed99499187fceaea49845fa0b10 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 2 Oct 2021 12:21:41 -0700 Subject: More improvements to breakable. --- src/Text/Pandoc/Writers/Shared.hs | 6 +++++- test/docx/golden/custom_style_no_reference.docx | Bin 9931 -> 9930 bytes test/docx/golden/custom_style_reference.docx | Bin 12368 -> 12366 bytes 3 files changed, 5 insertions(+), 1 deletion(-) 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 index 49cf42f38..71688a222 100644 Binary files a/test/docx/golden/custom_style_no_reference.docx and b/test/docx/golden/custom_style_no_reference.docx differ diff --git a/test/docx/golden/custom_style_reference.docx b/test/docx/golden/custom_style_reference.docx index e7da8f06d..4ae6bfcbe 100644 Binary files a/test/docx/golden/custom_style_reference.docx and b/test/docx/golden/custom_style_reference.docx differ -- cgit v1.2.3