Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Shared.normalizeSpaces: strip off leading/trailing line breaks...

Browse source 
...not just spaces.
This commit is contained in:
John MacFarlane 2017-03-10 20:21:17 +01:00
parent d037c5019d
commit 9862d7c359
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Text/Pandoc/Shared.hs
View file

@ -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