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 | |
| parent | 9bd371acd146489ccd099c77c6d18833ab51144c (diff) | |
HTML reader: Parse <q> as Quoted DoubleQuote.
Diffstat (limited to 'src/Text/Pandoc')
| -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 |