From df4d5b96c7594f59c519a3b46a8172aae28da963 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Mon, 29 Dec 2008 00:32:09 +0000 Subject: More fixes to get markdown writer working with pretty-1.0.1.0. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1517 788f1e2b-df1e-0410-8736-df70ead52e1b --- Text/Pandoc/Writers/Markdown.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'Text') diff --git a/Text/Pandoc/Writers/Markdown.hs b/Text/Pandoc/Writers/Markdown.hs index 8f703a7d5..70d1f0c91 100644 --- a/Text/Pandoc/Writers/Markdown.hs +++ b/Text/Pandoc/Writers/Markdown.hs @@ -266,10 +266,7 @@ orderedListItemToMarkdown :: WriterOptions -- ^ options -> State WriterState Doc orderedListItemToMarkdown opts marker items = do contents <- blockListToMarkdown opts items - -- The complexities here are needed to ensure that if the list - -- marker is 4 characters or longer, the second and following - -- lines are indented 4 spaces but the list item begins after the marker. - return $ sep [nest (min (3 - length marker) 0) (text marker), + return $ hsep [nest (min (3 - length marker) 0) (text marker), nest (writerTabStop opts) contents] -- | Convert definition list item (label, list of blocks) to markdown. -- cgit v1.2.3