From 6a3d1bd16a70f670ab8441eefb78315118f7ea09 Mon Sep 17 00:00:00 2001 From: Laura Hausmann Date: Fri, 17 May 2024 22:22:42 +0200 Subject: [PATCH] [parsing] Reformat code --- Iceshrimp.Parsing/Mfm.fs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 =