diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-12-29 00:32:09 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-12-29 00:32:09 +0000 |
commit | df4d5b96c7594f59c519a3b46a8172aae28da963 (patch) | |
tree | 7494c56eb2d700e6d07a1fcaa62ae8bbabe57f99 | |
parent | 3a6bfd75cb3ba7bd095289051aea06d597da8cb5 (diff) | |
download | pandoc-df4d5b96c7594f59c519a3b46a8172aae28da963.tar.gz |
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
-rw-r--r-- | Text/Pandoc/Writers/Markdown.hs | 5 |
1 files changed, 1 insertions, 4 deletions
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. |