@@ -266,10 +266,7 @@ orderedListItemToMarkdown :: WriterOptions -- ^ options
266266 -> State WriterState Doc
267267orderedListItemToMarkdown opts marker items = do
268268 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),
273270 nest (writerTabStop opts) contents]
274271
275272-- | Convert definition list item (label, list of blocks) to markdown.