diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 4 |
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 |