DocBook reader: Trim definition list terms.

2026-09-24 15:44:59 +08:00 · 2012-05-08 21:25:51 -07:00
parent 6b783d38ea
commit ef5c7fb4b6
1 changed files with 1 additions and 1 deletions
@@ -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