From f2c1777598235809b555c6731f6bff1a7b75121d Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Thu, 10 May 2007 22:05:25 +0000
Subject: Fixed bug with indented blocks occurring in definition lists.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@598 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Writers/Markdown.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Text/Pandoc/Writers')

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
 
-- 
cgit v1.2.3