From 3146193b0f9dc87f0282a28a3135f73c50bffd36 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 7 Jan 2025 19:07:40 -0500 Subject: Update IRC bridge --- fig-monitor-irc/src/Fig/Monitor/IRC.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'fig-monitor-irc/src') diff --git a/fig-monitor-irc/src/Fig/Monitor/IRC.hs b/fig-monitor-irc/src/Fig/Monitor/IRC.hs index 116a490..67554b3 100644 --- a/fig-monitor-irc/src/Fig/Monitor/IRC.hs +++ b/fig-monitor-irc/src/Fig/Monitor/IRC.hs @@ -4,6 +4,8 @@ module Fig.Monitor.IRC where import Fig.Prelude +import Control.Monad (unless) + import Data.Functor ((<&>)) import qualified Data.Text as Text import qualified Data.ByteString.Base64 as BS.Base64 @@ -89,7 +91,8 @@ 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 - Chan.writeChan outgoing OutgoingMessage { chan, user, msg = msg } + unless (user `elem` (["fabius"] :: [Text])) do + Chan.writeChan outgoing OutgoingMessage { chan, user, msg = msg } _ -> log $ "Invalid outgoing message: " <> tshow d ) (pure ()) -- cgit v1.2.3