DocBook reader: Trim definition list terms.
commitef5c7fb4b6b62f16495b0888f41893fb9f5bc14e
authorJohn MacFarlane <fiddlosopher@gmail.com>
dateTue 8 May 2012, 21:25 (14 years ago)
parent6b783d3
src/Text/Pandoc/Readers/DocBook.hs+1−1
@@ -657,7 +657,7 @@ parseBlock (Elem e) =
657657 $ map elContent defs
658658 items' <- mapM ((mconcat <$>) . mapM parseBlock)
659659 $ map elContent items
660− return (mconcat $ intersperse (str "; ") defs', items')
660+ return (trimInlines $ mconcat $ intersperse (str "; ") defs', items')
661661 getTitle = case filterChild (named "title") e of
662662 Just t -> do
663663 tit <- getInlines t