Less logging

2 files changed, 3 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
diff --git a/src/Main.hs b/src/Main.hs
index cc4fda2..88a7259 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -28,6 +28,7 @@ mainIRC = do
   connectIRC
     (\t -> T.take 2 t == T.pack "% ")
     (\recvmsg -> do
+      putStrLn $ "Responding to " ++ T.unpack recvmsg
       ghci <- takeMVar ghcivar
       (ghci', msgs) <- runInGhci ghci (T.drop 2 recvmsg)
       putMVar ghcivar ghci'