@@ -482,7 +482,9 @@ blockToHtml opts (OrderedList (startnum, numstyle, _) lst) = do
482 return $ foldl (!) (ordList opts contents) attribs
482 return $ foldl (!) (ordList opts contents) attribs
483blockToHtml opts (DefinitionList lst) = do
483blockToHtml opts (DefinitionList lst) = do
484 contents <- mapM (\(term, defs) ->
484 contents <- mapM (\(term, defs) ->
485+ do term' <- if null term
485− do term' <- liftM (H.dt) $ inlineListToHtml opts term
487+ else liftM (H.dt) $ inlineListToHtml opts term
486 defs' <- mapM ((liftM (\x -> H.dd $ (x >> nl opts))) .
488 defs' <- mapM ((liftM (\x -> H.dd $ (x >> nl opts))) .
487 blockListToHtml opts) defs
489 blockListToHtml opts) defs
488 return $ mconcat $ nl opts : term' : nl opts :
490 return $ mconcat $ nl opts : term' : nl opts :