Fixes join command not being sent if no password configured.
parent
044285bfb8
commit
d79bf62e82
|
@ -175,7 +175,7 @@ messageProcessLoop inChan messageChan = loop 0
|
||||||
whenJust mpass $ \pass -> do
|
whenJust mpass $ \pass -> do
|
||||||
msg <- newMessage $ PrivMsgReply (User (Nick "NickServ") "") $ "IDENTIFY " ++ pass
|
msg <- newMessage $ PrivMsgReply (User (Nick "NickServ") "") $ "IDENTIFY " ++ pass
|
||||||
sendMessage messageChan msg
|
sendMessage messageChan msg
|
||||||
sendMessage messageChan =<< newMessage JoinCmd
|
sendMessage messageChan =<< newMessage JoinCmd
|
||||||
return Connected
|
return Connected
|
||||||
| Just (WhoisNoSuchNickMsg n) <- fromMessage message, n == origNick =
|
| Just (WhoisNoSuchNickMsg n) <- fromMessage message, n == origNick =
|
||||||
infoM "Original nick available" >> return NickAvailable
|
infoM "Original nick available" >> return NickAvailable
|
||||||
|
|
Loading…
Reference in New Issue