aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Writers/Markdown.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index 7f46e8097..726f99eea 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -190,8 +190,10 @@ definitionListItemToMarkdown :: WriterOptions
-> State WriterState Doc
definitionListItemToMarkdown opts (label, items) = do
labelText <- inlineListToMarkdown opts label
+ let tabStop = writerTabStop opts
+ let leader = text ":"
contents <- mapM (\item -> blockToMarkdown opts item >>=
- (return . hang (text ": ") (writerTabStop opts)))
+ (\txt -> return (leader $$ nest tabStop txt)))
items >>= (return . vcat)
return $ labelText $+$ contents