From d79bf62e826e5bfc3edb87bb999108586db79306 Mon Sep 17 00:00:00 2001
From: Abhinav Sarkar <abhinav@abhinavsarkar.net>
Date: Tue, 30 Jun 2015 00:10:07 +0530
Subject: [PATCH] Fixes join command not being sent if no password configured.

---
 hask-irc-core/Network/IRC/Bot.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hask-irc-core/Network/IRC/Bot.hs b/hask-irc-core/Network/IRC/Bot.hs
index cec066e..4789f98 100644
--- 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