diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index 59830c3dd..5cb41638a 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -46,6 +46,7 @@ parseBlock (Elem e) = "section" -> gets dbSectionLevel >>= sect . (+1) "itemizedlist" -> bulletList <$> listitems "articleinfo" -> getTitle >> getAuthors >> getDate >> return mempty + "programlisting" -> return $ codeBlock $ strContent e "title" -> return mempty -- processed by sect "?xml" -> return mempty _ -> getBlocks e |