@@ -228,14 +228,14 @@ bulletListItemAtDepth depth = try $ do
228228 return (p:sublist)
229229
230230-- | Ordered List of given depth, depth being the number of
231−-- leading '#'
231+-- leading '#'
232232orderedListAtDepth :: Int -> GenParser Char ParserState Block
233233orderedListAtDepth depth = try $ do
234234 items <- many1 (orderedListItemAtDepth depth)
235235 return (OrderedList (1, DefaultStyle, DefaultDelim) items)
236236
237237-- | Ordered List Item of given depth, depth being the number of
238−-- leading '#'
238+-- leading '#'
239239orderedListItemAtDepth :: Int -> GenParser Char ParserState [Block]
240240orderedListItemAtDepth depth = try $ do
241241 count depth (char '#')