abhin4v/hask-irc
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixes join command not being sent if no password configured.

Browse Source
This commit is contained in:
Abhinav Sarkar 2015-06-30 00:10:07 +05:30
parent 044285bfb8
commit d79bf62e82
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hask-irc-core/Network/IRC/Bot.hs
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