@@ -776,13 +776,14 @@ failIfInQuoteContext context = do
776776 then fail "already inside quotes"
777777 else return ()
778778
779−singleQuoteStart = do
779+singleQuoteStart = try $ do
780780 failIfInQuoteContext InSingleQuote
781781 char '\'' <|> char '\8216'
782+ notFollowedBy (oneOf ")!],.;:-?")
782783
783−singleQuoteEnd = try (do
784+singleQuoteEnd = try $ do
784785 char '\'' <|> char '\8217'
785− notFollowedBy alphaNum)
786+ notFollowedBy alphaNum
786787
787788doubleQuoteStart = do
788789 failIfInQuoteContext InDoubleQuote