Pagwin/psb
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases Packages Wiki Activity

ordered list prefix

Browse source
This commit is contained in:
Pagwin 2025-12-10 15:22:08 -05:00
parent 628d85a8f3
commit 0acf1668c0
No known key found for this signature in database
GPG key ID: 81137023740CA260
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Markdown.hs
View file

@ -151,7 +151,8 @@ unorderedListBlock = listBlock Unordered unordered_prefix (\level -> unwrap <$>
orderedListBlock :: (Logger m, Characters s) => Int -> Parser s m Element orderedListBlock :: (Logger m, Characters s) => Int -> Parser s m Element
orderedListBlock = listBlock Ordered ordered_prefix (\level -> unwrap <$> ((try $ unorderedListBlock level) <|> orderedListBlock level)) orderedListBlock = listBlock Ordered ordered_prefix (\level -> unwrap <$> ((try $ unorderedListBlock level) <|> orderedListBlock level))
where where
ordered_prefix = error "ordered_prefix" -- regex equivalent: [0-9]+[.)]\s?
ordered_prefix = (some digitChar) *> (char '.' <|> char ')') *> optional spaceChar
-- not exhaustive but we know listBlock is returning a List -- not exhaustive but we know listBlock is returning a List
unwrap (List l) = l unwrap (List l) = l