From cbadd0531a0e78db0118d86ff4104cef234788b3 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 14 Feb 2025 21:11:04 -0500 Subject: Update IRC --- fig-monitor-irc/src/Fig/Monitor/IRC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'fig-monitor-irc') diff --git a/fig-monitor-irc/src/Fig/Monitor/IRC.hs b/fig-monitor-irc/src/Fig/Monitor/IRC.hs index 67554b3..2d448d2 100644 --- a/fig-monitor-irc/src/Fig/Monitor/IRC.hs +++ b/fig-monitor-irc/src/Fig/Monitor/IRC.hs @@ -91,7 +91,7 @@ ircBot cfg busAddr = do | ev == [sexp|(monitor irc chat outgoing)|] , Right user <- decodeUtf8 <$> BS.Base64.decodeBase64 (encodeUtf8 euser) , Right msg <- decodeUtf8 <$> BS.Base64.decodeBase64 (encodeUtf8 emsg) -> do - unless (user `elem` (["fabius"] :: [Text])) do + unless (any (Text.isInfixOf user) (["fabius"] :: [Text])) do Chan.writeChan outgoing OutgoingMessage { chan, user, msg = msg } _ -> log $ "Invalid outgoing message: " <> tshow d ) -- cgit v1.2.3