diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-05-10 22:05:25 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-05-10 22:05:25 +0000 |
| commit | f2c1777598235809b555c6731f6bff1a7b75121d (patch) | |
| tree | 98380196ac0018aeb7f06ee794717996cdd01130 /src | |
| parent | 5660e6ba11ed828bab12e48a35a6daf917c1fcbc (diff) | |
| download | pandoc-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.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 |