diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-04 22:58:28 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-04 22:58:28 +0000 |
| commit | a5e3c09fc7644785c54a28ccc08d6f5d6ffac868 (patch) | |
| tree | 1aacf98177a0a28492c89d80fa80f64f79e6048a /src | |
| parent | 030d94e1c3cd4be0ab9d7c16fccfa973cedb5d38 (diff) | |
| download | pandoc-a5e3c09fc7644785c54a28ccc08d6f5d6ffac868.tar.gz | |
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
Diffstat (limited to 'src')
| -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) |