aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index f8071a2b7..14dcd5d66 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -776,13 +776,14 @@ failIfInQuoteContext context = do
then fail "already inside quotes"
else return ()
-singleQuoteStart = do
+singleQuoteStart = try $ do
failIfInQuoteContext InSingleQuote
char '\'' <|> char '\8216'
+ notFollowedBy (oneOf ")!],.;:-?")
-singleQuoteEnd = try (do
+singleQuoteEnd = try $ do
char '\'' <|> char '\8217'
- notFollowedBy alphaNum)
+ notFollowedBy alphaNum
doubleQuoteStart = do
failIfInQuoteContext InDoubleQuote