aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Readers/DocBook.hs2
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