From 8d2baf35f164afe74809ed6d8d03150e7f4ce494 Mon Sep 17 00:00:00 2001 From: mb21 Date: Sun, 22 Apr 2012 16:53:27 +0200 Subject: fixed listitem --- src/Text/Pandoc/Readers/DocBook.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text') 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 -- cgit v1.2.3