From 5e35eb309fddea2ebc683c5cc9a9a1a824a7afd0 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 7 Dec 2010 21:24:35 -0800
Subject: Make --smart work in HTML reader.

---
 src/Text/Pandoc/Readers/HTML.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc/Readers')

diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index fdc727170..f05fdd57b 100644
--- 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"
-- 
cgit v1.2.3