From 4c382fb4293681064c6b98728866a5d5838d506c Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Thu, 2 May 2024 20:40:22 -0400 Subject: Strip whitespace surrounding Discord messages --- fig-monitor-discord/src/Fig/Monitor/Discord.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fig-monitor-discord/src/Fig/Monitor/Discord.hs b/fig-monitor-discord/src/Fig/Monitor/Discord.hs index 943b528..ff05e34 100644 --- a/fig-monitor-discord/src/Fig/Monitor/Discord.hs +++ b/fig-monitor-discord/src/Fig/Monitor/Discord.hs @@ -125,7 +125,7 @@ discordBot cfg busAddr = do [ SExprInteger . fromIntegral . Dis.unSnowflake $ Dis.unId chan , SExprString . BS.Base64.encodeBase64 $ encodeUtf8 name , SExprList [] - , SExprString . BS.Base64.encodeBase64 . encodeUtf8 . Text.intercalate " " + , SExprString . BS.Base64.encodeBase64 . encodeUtf8 . Text.strip . Text.intercalate " " $ maybe [] ((:[]) . (<>":")) replyStr <> mconcat [ [processedMsg] -- cgit v1.2.3