1 files changed, 4 insertions, 2 deletions
diff --git a/src/IRC.hs b/src/IRC.hs
index 7e78c50..5a24909 100644
--- a/src/IRC.hs
+++ b/src/IRC.hs
@@ -4,11 +4,12 @@ import Control.Monad (forM_)
 import Control.Monad.IO.Class (liftIO)
 import qualified Data.ByteString.Char8 as Char8
 import Data.Char
+import Data.Text (Text)
+import qualified Data.Text as T
 import Network.IRC.Client
 -- import Network.IRC.Client.Events
 import Lens.Micro
-import Data.Text (Text)
-import qualified Data.Text as T
+import System.IO (hFlush, stdout)
 
 
 connectIRC :: (Text -> Bool) -> (Text -> IO [Text]) -> IO ()
@@ -49,6 +50,7 @@ noticeHandler = EventHandler
             _ -> Nothing)
   (\_ () -> do
     liftIO $ putStrLn "Identification confirmation received, joining channel"
+    liftIO $ hFlush stdout
     send $ Join (T.pack "#haskell"))
 
 privmsgHandler :: (Text -> Bool) -> (Text -> IO [Text]) -> EventHandler s