diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2010-12-07 20:08:14 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-07 20:08:14 -0800 |
| commit | ace3b80f1eba86d4819bb21643271b6152d9f59b (patch) | |
| tree | e36c99dddf9b7063ee4153e0b740aaa9f1a6a511 /src/Text/Pandoc | |
| parent | 50ca61ef4977217889b386f84abd0ba190fac3f2 (diff) | |
| download | pandoc-ace3b80f1eba86d4819bb21643271b6152d9f59b.tar.gz | |
Smart punctuation: don't alllow ellipses containing spaces.
Previously we allowed '. . .', ' . . . ', etc. This caused
too many complications, and removed author's flexibility in
combining ellipses with spaces and periods.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index d63fcd0a7..104b75343 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -755,7 +755,7 @@ doubleQuoteEnd :: GenParser Char st () doubleQuoteEnd = oneOf "\"\8221" >> return () ellipses :: GenParser Char st Inline -ellipses = oneOfStrings ["...", " . . . ", ". . .", " . . ."] >> return Ellipses +ellipses = try $ string "..." >> return Ellipses dash :: GenParser Char st Inline dash = enDash <|> emDash |