aboutsummaryrefslogtreecommitdiff
path: root/src/IRC.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/IRC.hs')
-rw-r--r--src/IRC.hs3
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