[parsing] Fix typo

This commit is contained in:
Laura Hausmann 2024-04-29 00:07:39 +02:00
parent 8ec6607548
commit abe5e54d1b
No known key found for this signature in database
GPG key ID: D044E84C5BE01605

View file

@ -200,7 +200,7 @@ module private MfmParser =
previousCharSatisfiesNot isNotWhitespace previousCharSatisfiesNot isNotWhitespace
>>. skipString "```" >>. skipString "```"
>>. opt (many1CharsTill asciiLetter (lookAhead newline)) >>. opt (many1CharsTill asciiLetter (lookAhead newline))
.>>. (skipNewline >>. manyCharsTill anyChar (attempt <| skipNewline >>. skipString "```")) .>>. (skipNewline >>. manyCharsTill anyChar (attempt (skipNewline >>. skipString "```")))
|>> fun (lang: string option, code: string) -> MfmCodeBlockNode(code, lang) :> MfmNode |>> fun (lang: string option, code: string) -> MfmCodeBlockNode(code, lang) :> MfmNode
let mathNode = let mathNode =