diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-12-26 12:01:33 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-26 12:01:33 -0800 |
| commit | 220fe5fab89ce84fcb98f0430c4126281ca8362d (patch) | |
| tree | a63e1e7f1cbbbf10030acce482533fa01b28978b /src/Text | |
| parent | c912288eda5bbb271260c99af426545d83e62a4c (diff) | |
normalize: Don't reduce [Space] to [].
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index fba767158..cc94cf635 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -295,10 +295,7 @@ consolidateInlines (Str x : ys) = isStr _ = False fromStr (Str z) = z fromStr _ = error "consolidateInlines - fromStr - not a Str" -consolidateInlines (Space : ys) = - if null rest - then [] - else Space : rest +consolidateInlines (Space : ys) = Space : rest where isSpace Space = True isSpace _ = False rest = consolidateInlines $ dropWhile isSpace ys |