@@ -266,10 +266,7 @@ orderedListItemToMarkdown :: WriterOptions -- ^ options
266 -> State WriterState Doc
266 -> State WriterState Doc
267orderedListItemToMarkdown opts marker items = do
267orderedListItemToMarkdown opts marker items = do
268 contents <- blockListToMarkdown opts items
268 contents <- blockListToMarkdown opts items
269− -- The complexities here are needed to ensure that if the list
270− -- marker is 4 characters or longer, the second and following
271− -- lines are indented 4 spaces but the list item begins after the marker.
272− return $ sep [nest (min (3 - length marker) 0) (text marker),
269+ return $ hsep [nest (min (3 - length marker) 0) (text marker),
273 nest (writerTabStop opts) contents]
270 nest (writerTabStop opts) contents]
275-- | Convert definition list item (label, list of blocks) to markdown.
272-- | Convert definition list item (label, list of blocks) to markdown.