syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Bug fix: retract names on part

This commit is contained in:
Tony Garnock-Jones 2017-10-01 11:08:36 +01:00
parent 5254feb4de
commit eb07be548e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/syndicate/drivers/irc.rkt
View File

@ -100,7 +100,9 @@
(names-acc (set))]
[(regexp #px#"^:([^!]+)![^ ]* PART ([^ ]+)\r$" (list _ src tgt))
(retract! (irc-presence C (bytes->string/utf-8 src) (bytes->string/utf-8 tgt)))]
(retract! (irc-presence C (bytes->string/utf-8 src) (bytes->string/utf-8 tgt)))
(when (equal? (bytes->string/utf-8 src) nick)
(retract! (irc-presence C ? (bytes->string/utf-8 tgt))))]
[(regexp #px#"^:([^!]+)![^ ]* QUIT :(.*)\r$" (list _ src _quitmsg))
(retract! (irc-presence C (bytes->string/utf-8 src) ?))]