diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-27 11:01:10 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-27 11:01:10 -0800 |
| commit | 8f1da359174f99e0da447491ed49a54873b54827 (patch) | |
| tree | 0ae5934a5283a9a103df890195d905f913761efa /src/Text | |
| parent | de7902154377c6a93eeb91d95d2a27e794cac683 (diff) | |
| download | pandoc-8f1da359174f99e0da447491ed49a54873b54827.tar.gz | |
Pretty: return Str with unicode instead of Apostrophe.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 937deb484..78642b074 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -704,7 +704,7 @@ smartPunctuation inlineParser = do choice [ quoted inlineParser, apostrophe, dash, ellipses ] apostrophe :: GenParser Char ParserState Inline -apostrophe = (char '\'' <|> char '\8217') >> return Apostrophe +apostrophe = (char '\'' <|> char '\8217') >> return (Str "\x2019") quoted :: GenParser Char ParserState Inline -> GenParser Char ParserState Inline |