[parsing] Improve mention parser logic

This commit is contained in:
Laura Hausmann 2024-05-17 22:22:27 +02:00
parent 9636a096fc
commit cec79da658
No known key found for this signature in database
GPG key ID: D044E84C5BE01605

View file

@ -234,9 +234,7 @@ module private MfmParser =
<| choice <| choice
[ spaces1 [ spaces1
eof eof
skipChar ')' skipAnyOf "()[].,\'"
skipChar ','
skipChar '\''
skipChar ':' .>> nextCharSatisfiesNot isAsciiLetterOrNumber ]) skipChar ':' .>> nextCharSatisfiesNot isAsciiLetterOrNumber ])
|>> fun (user: string, host: string option) -> MfmMentionNode(acct (user, host), user, host) :> MfmNode |>> fun (user: string, host: string option) -> MfmMentionNode(acct (user, host), user, host) :> MfmNode