From 45718aa05e22c2c745eae14e9007086d76fe2a38 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Tue, 21 Dec 2021 20:06:30 -0500 Subject: [PATCH] "Whisper" is an uncommon term of art --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Main.hs b/Main.hs index 3316712..ec15000 100644 --- a/Main.hs +++ b/Main.hs @@ -421,7 +421,7 @@ componentMessage db componentJid m@(Message { messageTo = Just to }) existingRoo }] Nothing -> do nick <- nickFor db from existingRoom - let txt = mconcat [fromString "(", nick, fromString " whispers) ", strippedBody] + let txt = mconcat [s"<", nick, s" says> ", strippedBody] return [mkStanzaRec $ mkSMS componentJid smsJid txt] where strippedM = mapBody (const strippedBody) m -- 2.34.7