@@ -1447,7 +1447,7 @@ singleQuoteStart = do
14471447 guard =<< notAfterString
14481448 try $ do
14491449 charOrRef "'\8216\145"
1450− notFollowedBy (satisfy isSpaceChar)
1450+ void $ lookAhead (satisfy (not . isSpaceChar))
14511451
14521452singleQuoteEnd :: Stream s m Char
14531453 => ParserT s st m ()
@@ -1463,7 +1463,7 @@ doubleQuoteStart = do
14631463 failIfInQuoteContext InDoubleQuote
14641464 guard =<< notAfterString
14651465 try $ do charOrRef "\"\8220\147"
1466− notFollowedBy (satisfy isSpaceChar)
1466+ void $ lookAhead (satisfy (not . isSpaceChar))
14671467
14681468doubleQuoteEnd :: Stream s m Char
14691469 => ParserT s st m ()