From 31dc14343752033a33c80815590bd494c4dfa064 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 5 Feb 2019 13:37:18 +0000 Subject: [PATCH] Cope with libpurple weirdness --- imperative/examples/ircd/session.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/imperative/examples/ircd/session.rkt b/imperative/examples/ircd/session.rkt index 04a08b3..25b79e6 100644 --- a/imperative/examples/ircd/session.rkt +++ b/imperative/examples/ircd/session.rkt @@ -147,7 +147,8 @@ (send! (ircd-action this-conn m)) (match m [(irc-message _ "PING" _ _) (void)] ;; RFC says servers don't reply to PINGs - [(irc-message _ "PASS" (list P) _) + [(or (irc-message _ "PASS" (list P) _) + (irc-message _ "PASS" '() P)) ;; libpurple does this (!) (if (registered?) (send* 462 (nick) #:trailing "You may not reregister") (password P))]