Make --smart work in HTML reader.

2026-09-27 09:55:57 +00:00 · 2010-12-07 21:24:35 -08:00
parent 33ba35da9f
commit 5e35eb309f
1 changed files with 3 additions and 2 deletions
@@ -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"