aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-05-10 22:05:25 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-05-10 22:05:25 +0000
commitf2c1777598235809b555c6731f6bff1a7b75121d (patch)
tree98380196ac0018aeb7f06ee794717996cdd01130 /src
parent5660e6ba11ed828bab12e48a35a6daf917c1fcbc (diff)
downloadpandoc-f2c1777598235809b555c6731f6bff1a7b75121d.tar.gz
Fixed bug with indented blocks occurring in definition lists.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@598 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src')
-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