From 9862d7c359ce4f9e5f89c4ee5131e0f051c134d2 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 10 Mar 2017 20:21:17 +0100 Subject: Shared.normalizeSpaces: strip off leading/trailing line breaks... ...not just spaces. --- src/Text/Pandoc/Shared.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index 19d915b11..2eacbcc1c 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -355,8 +355,8 @@ orderedListMarkers (start, numstyle, numdelim) = in map inDelim nums -- | Normalize a list of inline elements: remove leading and trailing --- @Space@ elements, collapse double @Space@s into singles, and --- remove empty Str elements. +-- @Space@, @LineBreak@, and @SoftBreak@ elements, collapse double +-- @Space@s into singles, and remove empty @Str@ elements. normalizeSpaces :: [Inline] -> [Inline] normalizeSpaces = cleanup . dropWhile isSpaceOrEmpty where cleanup [] = [] @@ -368,6 +368,8 @@ normalizeSpaces = cleanup . dropWhile isSpaceOrEmpty isSpaceOrEmpty :: Inline -> Bool isSpaceOrEmpty Space = True +isSpaceOrEmpty SoftBreak = True +isSpaceOrEmpty LineBreak = True isSpaceOrEmpty (Str "") = True isSpaceOrEmpty _ = False -- cgit v1.2.3