From 8b01f03eaa0c73259ed7a6d73c649cac65edcddc Mon Sep 17 00:00:00 2001 From: Francesco Occhipinti Date: Fri, 27 Apr 2018 18:01:20 +0200 Subject: RST writer: preserve empty inline parents in flatten (#4603) --- src/Text/Pandoc/Writers/RST.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs index 084615357..f82597c55 100644 --- a/src/Text/Pandoc/Writers/RST.hs +++ b/src/Text/Pandoc/Writers/RST.hs @@ -457,8 +457,11 @@ transformInlines = insertBS . -- them either collapsing them in the outer inline container or -- pulling them out of it flatten :: Inline -> [Inline] -flatten outer = combineAll $ dropInlineParent outer - where combineAll = foldl combine [] +flatten outer + | null contents = [outer] + | otherwise = combineAll contents + where contents = dropInlineParent outer + combineAll = foldl combine [] combine :: [Inline] -> Inline -> [Inline] combine f i = -- cgit v1.2.3