diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-11 13:12:00 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-09-11 13:20:11 +0300 |
| commit | e6ba0cc8936a0520bee96de6c2eb42973caa4058 (patch) | |
| tree | 7b8063c704bb4255d6f8ad90c86c50e6f5b9802a /src/Text/Pandoc/Writers | |
| parent | 97f6833ee58667defbf4f203ebd69f5062232563 (diff) | |
| download | pandoc-e6ba0cc8936a0520bee96de6c2eb42973caa4058.tar.gz | |
HTML writer: always output <dt> element, even if it is empty
Fixes #4883
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 25f3163c2..a0b622c83 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -830,9 +830,7 @@ blockToHtml opts (OrderedList (startnum, numstyle, _) lst) = do return $ foldl (!) l attribs blockToHtml opts (DefinitionList lst) = do contents <- mapM (\(term, defs) -> - do term' <- if null term - then return mempty - else liftM H.dt $ inlineListToHtml opts term + do term' <- liftM H.dt $ inlineListToHtml opts term defs' <- mapM (liftM (\x -> H.dd (x >> nl opts)) . blockListToHtml opts) defs return $ mconcat $ nl opts : term' : nl opts : |