Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Make --smart work in HTML reader.

Browse source
This commit is contained in:
John MacFarlane 2010-12-07 21:24:35 -08:00
parent 33ba35da9f
commit 5e35eb309f
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Text/Pandoc/Readers/HTML.hs
View file

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