diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-09 10:46:01 -0700 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-09-09 10:46:01 -0700 |
commit | 204ee87803d75f301a93bf6ac23d664e1d85f672 (patch) | |
tree | 94f827e63aa340057eec47480d7dca3790dccb58 /src/Text/Pandoc/Readers | |
parent | 9bd371acd146489ccd099c77c6d18833ab51144c (diff) | |
download | pandoc-204ee87803d75f301a93bf6ac23d664e1d85f672.tar.gz |
HTML reader: Parse <q> as Quoted DoubleQuote.
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r-- | src/Text/Pandoc/Readers/HTML.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs index e5c310ffc..182a144b3 100644 --- a/src/Text/Pandoc/Readers/HTML.hs +++ b/src/Text/Pandoc/Readers/HTML.hs @@ -271,6 +271,7 @@ pCodeBlock = try $ do inline :: TagParser [Inline] inline = choice [ pTagText + , pQ , pEmph , pStrong , pSuperscript @@ -306,6 +307,9 @@ pSelfClosing f g = do optional $ pSatisfy (tagClose f) return open +pQ :: TagParser [Inline] +pQ = pInlinesInTags "q" (Quoted DoubleQuote) + pEmph :: TagParser [Inline] pEmph = pInlinesInTags "em" Emph <|> pInlinesInTags "i" Emph |