Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

DocBook reader: Trim definition list terms.

Browse source
This commit is contained in:
John MacFarlane 2012-05-08 21:25:51 -07:00
parent 6b783d38ea
commit ef5c7fb4b6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Readers/DocBook.hs
View file

@ -657,7 +657,7 @@ parseBlock (Elem e) =
$ map elContent defs
items' <- mapM ((mconcat <$>) . mapM parseBlock)
$ map elContent items
return (mconcat $ intersperse (str "; ") defs', items')
return (trimInlines $ mconcat $ intersperse (str "; ") defs', items')
getTitle = case filterChild (named "title") e of
Just t -> do
tit <- getInlines t