Fixes join command not being sent if no password configured.

8 years ago · d79bf62e82
parent 044285bfb8
commit d79bf62e82
1 changed files with 1 additions and 1 deletions
--- a/hask-irc-core/Network/IRC/Bot.hs
+++ b/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