normalize: Don't reduce [Space] to [].

2010-12-26 12:01:33 -08:00 · 2010-12-26 12:01:33 -08:00 · 220fe5fab8
commit 220fe5fab8
parent c912288eda
1 changed files with 1 additions and 4 deletions
--- 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