From e6ba0cc8936a0520bee96de6c2eb42973caa4058 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Tue, 11 Sep 2018 13:12:00 +0300
Subject: HTML writer: always output <dt> element, even if it is empty

Fixes #4883
---
 src/Text/Pandoc/Writers/HTML.hs | 4 +---
 test/Tests/Writers/HTML.hs      | 5 +++++
 2 files changed, 6 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 :
diff --git a/test/Tests/Writers/HTML.hs b/test/Tests/Writers/HTML.hs
index e771255b3..dfacda608 100644
--- a/test/Tests/Writers/HTML.hs
+++ b/test/Tests/Writers/HTML.hs
@@ -43,4 +43,9 @@ tests = [ testGroup "inline code"
             image "/url" "title" ("my " <> emph "image")
             =?> "<img src=\"/url\" title=\"title\" alt=\"my image\" />"
           ]
+        , testGroup "blocks"
+          [ "definition list with empty <dt>" =:
+            definitionList [(mempty, [para $ text "foo bar"])]
+            =?> "<dl><dt></dt><dd><p>foo bar</p></dd></dl>"
+          ]
         ]
-- 
cgit v1.2.3