diff options
| author | LLLL Colonq <llll@colonq> | 2024-05-02 20:40:22 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-05-02 20:40:22 -0400 |
| commit | 4c382fb4293681064c6b98728866a5d5838d506c (patch) | |
| tree | 4b66ca984ee0e8bc1da99def3ccdc6826e9b3615 | |
| parent | d71a77ab7227937ae8190d0b745b94056330af29 (diff) | |
Strip whitespace surrounding Discord messages
| -rw-r--r-- | fig-monitor-discord/src/Fig/Monitor/Discord.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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] |