Fixes join command not being sent if no password configured.

master
Abhinav Sarkar 8 years ago
parent 044285bfb8
commit d79bf62e82
  1. 2
      hask-irc-core/Network/IRC/Bot.hs

@ -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

Loading…
Cancel
Save