@@ -704,7 +704,7 @@ smartPunctuation inlineParser = do
704 choice [ quoted inlineParser, apostrophe, dash, ellipses ]
704 choice [ quoted inlineParser, apostrophe, dash, ellipses ]
706apostrophe :: GenParser Char ParserState Inline
706apostrophe :: GenParser Char ParserState Inline
707−apostrophe = (char '\'' <|> char '\8217') >> return Apostrophe
707+apostrophe = (char '\'' <|> char '\8217') >> return (Str "\x2019")
709quoted :: GenParser Char ParserState Inline
709quoted :: GenParser Char ParserState Inline
710 -> GenParser Char ParserState Inline
710 -> GenParser Char ParserState Inline