Handle blockquote tag in docbook reader.

2012-04-14 17:51:29 -07:00 · 2012-04-14 17:51:29 -07:00 · fe5704bebc
commit fe5704bebc
parent 2198ac080b
1 changed files with 1 additions and 0 deletions
--- 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