Make --smart work in HTML reader.

2010-12-07 21:24:35 -08:00 · 2010-12-07 21:24:35 -08:00 · 5e35eb309f
commit 5e35eb309f
parent 33ba35da9f
1 changed files with 3 additions and 2 deletions
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@ -668,7 +668,8 @@ plain = many1 inline >>= return . Plain . normalizeSpaces
 --

 inline :: GenParser Char ParserState Inline
-inline = choice [ charRef
+inline = choice [ smartPunctuation inline
+                , str
                , strong
                , emph
                , superscript
@ -676,11 +677,11 @@ inline = choice [ charRef
                , strikeout
                , spanStrikeout
                , code
-                , str
                , linebreak
                , whitespace
                , link
                , image
+                , charRef
                , rawHtmlInline
                , char '&' >> return (Str "&") -- common HTML error
                ] <?> "inline"