From 220fe5fab89ce84fcb98f0430c4126281ca8362d Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 26 Dec 2010 12:01:33 -0800
Subject: normalize: Don't reduce [Space] to [].

---
 src/Text/Pandoc/Shared.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'src/Text')

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
-- 
cgit v1.2.3