aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorTom Smeding <tom@tomsmeding.com>2022-11-02 20:10:55 +0100
committerTom Smeding <tom@tomsmeding.com>2022-11-02 20:10:55 +0100
commit4ffd1b1dd0a769c52e0ee68c187ad4547201d5a5 (patch)
treede25d5a30e219de9a646552087aec8fd820036d8 /src
parent377757efa4207ee7238477b915808eb1ff115004 (diff)
Also join #haskell-offtopic
Diffstat (limited to 'src')
-rw-r--r--src/IRC.hs3
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