From c8911057904e16aac53652311d0a131491b413a0 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Wed, 15 Jun 2022 13:12:37 +0200
Subject: Less logging

---
 src/IRC.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/IRC.hs')

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
-- 
cgit v1.2.3-54-g00ecf