Fixes join command not being sent if no password configured.

master
Abhinav Sarkar 2015-06-30 00:10:07 +05:30
parent 044285bfb8
commit d79bf62e82
1 changed files with 1 additions and 1 deletions

View File

@ -175,7 +175,7 @@ messageProcessLoop inChan messageChan = loop 0
whenJust mpass $ \pass -> do
msg <- newMessage $ PrivMsgReply (User (Nick "NickServ") "") $ "IDENTIFY " ++ pass
sendMessage messageChan msg
sendMessage messageChan =<< newMessage JoinCmd
sendMessage messageChan =<< newMessage JoinCmd
return Connected
| Just (WhoisNoSuchNickMsg n) <- fromMessage message, n == origNick =
infoM "Original nick available" >> return NickAvailable