fixed listitem
commit8d2baf35f164afe74809ed6d8d03150e7f4ce494
authormb21 <maurobieg@Mauros-MacBook-Air.local>
dateSun 22 Apr 2012, 16:53 (14 years ago)
parentf63fb16
src/Text/Pandoc/Readers/DocBook.hs+1−1
@@ -574,7 +574,7 @@ parseBlock (Elem e) =
574574 skipWhite (Text (CData _ s _):xs) | all isSpace s = skipWhite xs
575575 | otherwise = xs
576576 skipWhite xs = xs
577− listitems = mapM getBlocks $ findChildren (unqual "listitem") e
577+ listitems = mapM getBlocks $ filterChildren (\e' -> qName (elName e') == "listitem") e
578578 getTitle = case findChild (unqual "title") e of
579579 Just t -> do
580580 tit <- getInlines t