Squelch TAGMSGs for now

glguy · Aug 12, 2024 · 40a7a3f · 40a7a3f
1 parent 82a318a
commit 40a7a3f
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Client/State/Network.hs b/src/Client/State/Network.hs
@@ -751,6 +751,7 @@ squelchReply rpl =
 -- relevant information.
 squelchIrcMsg :: IrcMsg -> Bool
 squelchIrcMsg (Reply _ rpl _) = squelchReply rpl
+squelchIrcMsg (Tagmsg _ _)    = True -- TODO: Remove after implementing TAGMSG filtering
 squelchIrcMsg _               = False
 
 doMode ::