Compare commits

...

2 commits

Author SHA1 Message Date
Pagwin
5d29e8165e
fixed ordered lists 2025-11-28 13:43:38 -05:00
Pagwin
874803d89e
made test run again 2025-11-28 13:43:32 -05:00
2 changed files with 2 additions and 1 deletions

View file

@ -205,6 +205,7 @@ orderedListItem = do
char '.' <|> char ')' char '.' <|> char ')'
optional (char ' ' <|> char '\t') optional (char ' ' <|> char '\t')
content <- many $ notFollowedBy lineEnding' *> inlineElement content <- many $ notFollowedBy lineEnding' *> inlineElement
lineEnding'
-- continuations <- many listContinuation -- continuations <- many listContinuation
children <- many (try indentedList) children <- many (try indentedList)
pure $ LI content children pure $ LI content children

View file

@ -29,7 +29,7 @@ test-suite test-markdown-parse
hs-source-dirs: app hs-source-dirs: app
type: exitcode-stdio-1.0 type: exitcode-stdio-1.0
main-is: Tests/Markdown/Parse.hs main-is: Tests/Markdown/Parse.hs
build-depends: base >=4.20 && < 4.21, text >= 2.1.2 && < 2.2, megaparsec >= 9.7.0 && < 9.8, transformers >= 0.6.2 && < 0.7, hedgehog >= 1.7 && < 1.8, time >= 1.15 && < 1.16 build-depends: base >=4.20 && < 4.21, text >= 2.1.2 , megaparsec >= 9.7.0 , transformers >= 0.6.2 , hedgehog >= 1.7 , time
default-extensions: ApplicativeDo DataKinds NamedFieldPuns DerivingVia LambdaCase TypeApplications DeriveGeneric OverloadedRecordDot NamedFieldPuns DuplicateRecordFields DisambiguateRecordFields FlexibleInstances default-extensions: ApplicativeDo DataKinds NamedFieldPuns DerivingVia LambdaCase TypeApplications DeriveGeneric OverloadedRecordDot NamedFieldPuns DuplicateRecordFields DisambiguateRecordFields FlexibleInstances
other-modules: IR Logger Markdown Utilities other-modules: IR Logger Markdown Utilities