From a5e3c09fc7644785c54a28ccc08d6f5d6ffac868 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Thu, 4 Jan 2007 22:58:28 +0000 Subject: Fixed small bug in consolidateList: added case for (Str a):Space:Space:rest. git-svn-id: https://pandoc.googlecode.com/svn/trunk@418 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Shared.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index d1d40ac23..da00bb8c4 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -150,6 +150,7 @@ defaultParserState = -- Collapse adjacent @Space@s. consolidateList :: [Inline] -> [Inline] consolidateList ((Str a):(Str b):rest) = consolidateList ((Str (a ++ b)):rest) +consolidateList ((Str a):Space:Space:rest) = consolidateList ((Str a):Space:rest) consolidateList ((Str a):Space:rest) = consolidateList ((Str (a ++ " ")):rest) consolidateList (Space:(Str a):rest) = consolidateList ((Str (" " ++ a)):rest) consolidateList (Space:Space:rest) = consolidateList ((Str " "):rest) -- cgit v1.2.3