diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index 9d3e8302f..d0b55fcd8 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -574,7 +574,7 @@ parseBlock (Elem e) = skipWhite (Text (CData _ s _):xs) | all isSpace s = skipWhite xs | otherwise = xs skipWhite xs = xs - listitems = mapM getBlocks $ findChildren (unqual "listitem") e + listitems = mapM getBlocks $ filterChildren (\e' -> qName (elName e') == "listitem") e getTitle = case findChild (unqual "title") e of Just t -> do tit <- getInlines t |