From fe5704bebc91428013cef306f33e7c98e4ac43be Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 14 Apr 2012 17:51:29 -0700
Subject: Handle blockquote tag in docbook reader.

---
 src/Text/Pandoc/Readers/DocBook.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index 488e179da..432daeeea 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -25,6 +25,7 @@ parseBlock (Text (CData _ s _)) = if all isSpace s
 parseBlock (Elem e) =
   case qName (elName e) of
         "para"  -> para <$> getInlines e
+        "blockquote" -> blockQuote <$> innerBlocks
         "sect1" -> sect 1
         "sect2" -> sect 2
         "sect3" -> sect 3
-- 
cgit v1.2.3