Browse Source

Bug fix: retract names on part

pr/32
Tony Garnock-Jones 4 years ago
parent
commit
eb07be548e
  1. 4
      racket/syndicate/drivers/irc.rkt

4
racket/syndicate/drivers/irc.rkt

@ -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) ?))]

Loading…
Cancel
Save