diff options
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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) |