Pretty: return Str with unicode instead of Apostrophe.
commit8f1da359174f99e0da447491ed49a54873b54827
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateTue 27 Dec 2011, 11:01 (15 years ago)
parentde79021
src/Text/Pandoc/Parsing.hs+1−1
@@ -704,7 +704,7 @@ smartPunctuation inlineParser = do
704704 choice [ quoted inlineParser, apostrophe, dash, ellipses ]
705705
706706apostrophe :: GenParser Char ParserState Inline
707−apostrophe = (char '\'' <|> char '\8217') >> return Apostrophe
707+apostrophe = (char '\'' <|> char '\8217') >> return (Str "\x2019")
708708
709709quoted :: GenParser Char ParserState Inline
710710 -> GenParser Char ParserState Inline