diff options
| -rw-r--r-- | src/IRC.hs | 3 | ||||
| -rw-r--r-- | src/Main.hs | 1 |
2 files changed, 3 insertions, 1 deletions
@@ -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' |