@@ -1093,7 +1093,8 @@ str = do
10931093 <|> (try $ char '_' >>~ lookAhead alphaNum)
10941094 <|> if stateStrict st
10951095 then mzero
1096− else (try $ char '\'' >> lookAhead alphaNum >> return '\x2019')
1096+ else (try $ satisfy (\c -> c == '\'' || c == '\x2019') >>
1097+ lookAhead alphaNum >> return '\x2019')
10971098 -- for things like l'aide - would be better to return
10981099 -- an Apostrophe, but we can't in this context
10991100 let result = a:as