Avoid unwanted interpretation of def list term as other kind of block,

e.g. ordered list item, in Markdown writer.

Closes #554.

1 files changed, 4 insertions, 4 deletions

diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index 85d9e85e1..50fba2dba 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -783,7 +783,7 @@ definitionListItemToMarkdown :: PandocMonad m
                              -> ([Inline],[[Block]])
                              -> MD m Doc
 definitionListItemToMarkdown opts (label, defs) = do
-  labelText <- inlineListToMarkdown opts label
+  labelText <- blockToMarkdown opts (Plain label)
   defs' <- mapM (mapM (blockToMarkdown opts)) defs
   if isEnabled Ext_definition_lists opts
      then do
@@ -804,10 +804,10 @@ definitionListItemToMarkdown opts (label, defs) = do
             let isTight = case defs of
                                ((Plain _ : _): _) -> True
                                _                  -> False
-            return $ blankline <> nowrap labelText <>
-                     (if isTight then cr else blankline) <> contents <> blankline
+            return $ blankline <> nowrap labelText $$
+                     (if isTight then empty else blankline) <> contents <> blankline
      else do
-       return $ nowrap labelText <> text "  " <> cr <>
+       return $ nowrap (chomp labelText <> text "  " <> cr) <>
                 vsep (map vsep defs') <> blankline
 
 -- | Convert list of Pandoc block elements to markdown.