aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2011-12-27 11:01:10 -0800
committerJohn MacFarlane <fiddlosopher@gmail.com>2011-12-27 11:01:10 -0800
commit8f1da359174f99e0da447491ed49a54873b54827 (patch)
tree0ae5934a5283a9a103df890195d905f913761efa /src/Text/Pandoc
parentde7902154377c6a93eeb91d95d2a27e794cac683 (diff)
downloadpandoc-8f1da359174f99e0da447491ed49a54873b54827.tar.gz
Pretty: return Str with unicode instead of Apostrophe.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Parsing.hs2
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