diff options
| author | mb21 <maurobieg@Mauros-MacBook-Air.local> | 2012-04-22 16:53:27 +0200 |
|---|---|---|
| committer | mb21 <maurobieg@Mauros-MacBook-Air.local> | 2012-04-22 16:53:27 +0200 |
| commit | 8d2baf35f164afe74809ed6d8d03150e7f4ce494 (patch) | |
| tree | aa5da651fd851437c46cff2fd3d2b4af70eab927 /src/Text/Pandoc/Readers/DocBook.hs | |
| parent | f63fb16921e61e462143646582bc0239161b9204 (diff) | |
| download | pandoc-8d2baf35f164afe74809ed6d8d03150e7f4ce494.tar.gz | |
fixed listitem
Diffstat (limited to 'src/Text/Pandoc/Readers/DocBook.hs')
| -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 |