diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-06-08 03:20:15 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-06-08 03:20:15 +0000 |
| commit | cd38d4ae79b41972960fd038c7c7cfbfe2dae92a (patch) | |
| tree | 1c6aab160a1571ddfabee1f5800f13b0ba380700 /Text | |
| parent | efb9fd8d5399fac881ce2a33af01c542e083c894 (diff) | |
Markdown smart typography: Em dashes no longer eat surrounding whitespace.
Resolves Issue #69.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1279 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text')
| -rw-r--r-- | Text/Pandoc/Readers/Markdown.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Text/Pandoc/Readers/Markdown.hs b/Text/Pandoc/Readers/Markdown.hs index 2dbf9e189..7c4a778fe 100644 --- a/Text/Pandoc/Readers/Markdown.hs +++ b/Text/Pandoc/Readers/Markdown.hs @@ -851,8 +851,7 @@ dash = enDash <|> emDash enDash = try $ char '-' >> notFollowedBy (noneOf "0123456789") >> return EnDash -emDash = try $ skipSpaces >> oneOfStrings ["---", "--"] >> - skipSpaces >> return EmDash +emDash = oneOfStrings ["---", "--"] >> return EmDash whitespace = do sps <- many1 (oneOf spaceChars) |