[parsing] Improve mention parser logic
This commit is contained in:
parent
9636a096fc
commit
cec79da658
1 changed files with 1 additions and 3 deletions
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue