Also join #haskell-offtopic

1 files changed, 2 insertions, 1 deletions

diff --git a/src/IRC.hs b/src/IRC.hs
index fdcf90e..9d9a320 100644
--- a/src/IRC.hs
+++ b/src/IRC.hs
@@ -52,7 +52,8 @@ noticeHandler = EventHandler
   (\_ () -> do
     liftIO $ putStrLn "Identification confirmation received, joining channel"
     liftIO $ hFlush stdout
-    send $ Join (T.pack "#haskell"))
+    send $ Join (T.pack "#haskell")
+    send $ Join (T.pack "#haskell-offtopic"))
 
 privmsgHandler :: (Text -> Bool) -> (Text -> IO [Text]) -> EventHandler s
 privmsgHandler commandDetect msgFun = EventHandler