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

2026-09-24 15:44:59 +08:00 · 2010-12-26 12:01:33 -08:00
parent c912288eda
commit 220fe5fab8
1 changed files with 1 additions and 4 deletions
@@ -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