From 204ee87803d75f301a93bf6ac23d664e1d85f672 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sun, 9 Sep 2012 10:46:01 -0700
Subject: HTML reader: Parse <q> as Quoted DoubleQuote.

---
 src/Text/Pandoc/Readers/HTML.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Text/Pandoc')

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
 
-- 
cgit v1.2.3