[parsing] Improve url detection (ISH-302)

2024-05-02 22:21:41 +02:00 · 2024-05-02 22:21:41 +02:00 · c3a4e235a7
parent 69065ef1d7
commit c3a4e235a7
1 changed files with 1 additions and 1 deletions
--- a/Iceshrimp.Parsing/Mfm.fs
+++ b/Iceshrimp.Parsing/Mfm.fs
@ -248,7 +248,7 @@ module private MfmParser =

    let urlNodePlain =
        lookAhead (skipString "https://" <|> skipString "http://")
-        >>. manyCharsTill anyChar (nextCharSatisfies isWhitespace <|> eof) //FIXME: this needs significant improvements
+        >>. manyCharsTill anyChar (nextCharSatisfies isWhitespace <|> skipAnyOf "()" <|> eof) //FIXME: this needs significant improvements
        >>= fun uri ->
            match Uri.TryCreate(uri, UriKind.Absolute) with
            | true, finalUri ->