From 4ffd1b1dd0a769c52e0ee68c187ad4547201d5a5 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Wed, 2 Nov 2022 20:10:55 +0100
Subject: Also join #haskell-offtopic

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

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
-- 
cgit v1.2.3-70-g09d2