diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-18 02:54:07 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-01-18 02:54:07 +0000 |
| commit | a7839a18a785e5fe407fdc8906af8d220469f7a4 (patch) | |
| tree | aebfc05fd8dee3f55ef2d9bd21e5249499b3523b | |
| parent | 2c64e7947b9b7128c92fbaf23d3d6e562c3ea3d0 (diff) | |
| download | pandoc-a7839a18a785e5fe407fdc8906af8d220469f7a4.tar.gz | |
Small bug fix to last change, and count "'S" as well as "'s" as
possessive when followed by non-alphanumeric.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@499 788f1e2b-df1e-0410-8736-df70ead52e1b
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 13c5e3d6c..aae635663 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -778,7 +778,7 @@ singleQuoteStart = try $ do failIfInQuoteContext InSingleQuote char '\'' <|> char '\8216' notFollowedBy (oneOf ")!],.;:-? \t\n") - notFollowedBy (do{char 's'; satisfy (not . isAlphaNum)}) + notFollowedBy (try (do{oneOf "sS"; satisfy (not . isAlphaNum)})) singleQuoteEnd = try $ do char '\'' <|> char '\8217' |