Less logging

1 files changed, 2 insertions, 1 deletions

diff --git a/src/IRC.hs b/src/IRC.hs
index 36cb1c3..7e78c50 100644
--- a/src/IRC.hs
+++ b/src/IRC.hs
@@ -20,7 +20,7 @@ connectIRC commandDetect msgFun = do
                & username .~ T.pack "yahb2"
                & realname .~ T.pack "Bot operated by tomsmeding"
                & password .~ Just (T.pack (trim pass))
-               & logfunc  .~ stdoutLogger
+               & logfunc  .~ noopLogger
 
   let cfg = defaultInstanceConfig (T.pack "yahb2")
               & handlers .~
@@ -48,6 +48,7 @@ noticeHandler = EventHandler
               -> Just ()
             _ -> Nothing)
   (\_ () -> do
+    liftIO $ putStrLn "Identification confirmation received, joining channel"
     send $ Join (T.pack "#haskell"))
 
 privmsgHandler :: (Text -> Bool) -> (Text -> IO [Text]) -> EventHandler s