sasl: leave authorization identity empty

ncfavier · Nov 19, 2021 · ddb8fb2 · ddb8fb2
1 parent 6977d97
commit ddb8fb2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Nirc.hs b/src/Nirc.hs
@@ -128,7 +128,7 @@ main = do
             ("CAP", _:"ACK":_) -> do
                 sendRaw "AUTHENTICATE PLAIN" conn
             ("AUTHENTICATE", _) -> do
-                sendRaw ("AUTHENTICATE " ++ (BS.unpack . encode . BS.pack $ intercalate "\0" [nickname, nickname, password])) conn
+                sendRaw ("AUTHENTICATE " ++ (BS.unpack . encode . BS.pack $ intercalate "\0" ["", nickname, password])) conn
             ("CAP", _:"NAK":_) -> do
                 sendIRC "CAP" ["END"] conn
                 nickServ ["IDENTIFY", password] conn