normalize: Don't reduce [Space] to [].
commit220fe5fab89ce84fcb98f0430c4126281ca8362d
authorJohn MacFarlane <jgm@berkeley.edu>
dateSun 26 Dec 2010, 12:01 (16 years ago)
parentc912288
src/Text/Pandoc/Shared.hs+1−4
@@ -295,10 +295,7 @@ consolidateInlines (Str x : ys) =
295295 isStr _ = False
296296 fromStr (Str z) = z
297297 fromStr _ = error "consolidateInlines - fromStr - not a Str"
298−consolidateInlines (Space : ys) =
299− if null rest
300− then []
301− else Space : rest
298+consolidateInlines (Space : ys) = Space : rest
302299 where isSpace Space = True
303300 isSpace _ = False
304301 rest = consolidateInlines $ dropWhile isSpace ys