diff options
| -rw-r--r-- | fig-monitor-irc/src/Fig/Monitor/IRC.hs | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/fig-monitor-irc/src/Fig/Monitor/IRC.hs b/fig-monitor-irc/src/Fig/Monitor/IRC.hs index c84b2f4..0ceaeba 100644 --- a/fig-monitor-irc/src/Fig/Monitor/IRC.hs +++ b/fig-monitor-irc/src/Fig/Monitor/IRC.hs @@ -4,6 +4,7 @@ module Fig.Monitor.IRC where import Fig.Prelude +import Data.Functor ((<&>)) import qualified Data.Text as Text import qualified Data.ByteString.Base64 as BS.Base64 @@ -20,9 +21,9 @@ import Fig.Bus.Client import Fig.Monitor.IRC.Utils data OutgoingMessage = OutgoingMessage - { chan :: Text - , user :: Text - , msg :: Text + { chan :: !Text + , user :: !Text + , msg :: !Text } ircBot :: Config -> (Text, Text) -> IO () @@ -33,11 +34,12 @@ ircBot cfg busAddr = do ( Conc.readMVar mircst >>= \ircst -> forever $ do o <- liftIO $ Chan.readChan outgoing log $ "Sending: " <> o.msg <> " (from " <> o.user <> ")" - let msg = IRC.Privmsg o.chan . Right . Text.take 400 $ mconcat + let lines = Text.splitOn "\n" o.msg + let msgs = lines <&> \msg -> IRC.Privmsg o.chan . Right . Text.take 400 $ mconcat [ "<", o.user, "> " - , Text.replace "\n" " " o.msg + , Text.replace "\n" " " msg ] - IRC.runIRCAction (IRC.send msg) ircst + IRC.runIRCAction (forM_ msgs IRC.send) ircst ) do busClient busAddr |