diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-15 17:29:20 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-15 17:29:20 +0000 |
| commit | ec0e6e99410a9a6a9bca146fc77c2bba16256ac1 (patch) | |
| tree | 1fab7d732330e8bfa28435e9cb2e1bdddd0db3e0 /src | |
| parent | 6cc5f6b199583dfa2fddb0746681fc3985ab22d9 (diff) | |
| download | pandoc-ec0e6e99410a9a6a9bca146fc77c2bba16256ac1.tar.gz | |
Fixed bug in normalizeSpaces: Space:Str "":Space
should compress to Space.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@845 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 31ce1c348..5347a5609 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -716,6 +716,7 @@ normalizeSpaces [] = [] normalizeSpaces list = let removeDoubles [] = [] removeDoubles (Space:Space:rest) = removeDoubles (Space:rest) + removeDoubles (Space:(Str ""):Space:rest) = removeDoubles (Space:rest) removeDoubles ((Str ""):rest) = removeDoubles rest removeDoubles (x:rest) = x:(removeDoubles rest) removeLeading (Space:xs) = removeLeading xs |