diff options
| -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. |