diff --git a/Iceshrimp.Parsing/Mfm.fs b/Iceshrimp.Parsing/Mfm.fs index d198220e..08b26b53 100644 --- a/Iceshrimp.Parsing/Mfm.fs +++ b/Iceshrimp.Parsing/Mfm.fs @@ -196,7 +196,8 @@ module private MfmParser = previousCharSatisfiesNot isNotWhitespace >>. skipString "```" >>. 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 let mathNode = @@ -210,7 +211,8 @@ module private MfmParser = |>> fun f -> MfmMathBlockNode(f) :> MfmNode let emojiCodeNode = - skipChar ':' >>. manyCharsTill (satisfy isAsciiLetter <|> satisfy isDigit <|> anyOf "+-_") (skipChar ':') + skipChar ':' + >>. manyCharsTill (satisfy isAsciiLetter <|> satisfy isDigit <|> anyOf "+-_") (skipChar ':') |>> fun e -> MfmEmojiCodeNode(e) :> MfmNode let plainNode =