~singpolyma/cheogram

45718aa05e22c2c745eae14e9007086d76fe2a38 — Stephen Paul Weber 1 year, 1 month ago 04624bc
"Whisper" is an uncommon term of art
1 files changed, 1 insertions(+), 1 deletions(-)

M Main.hs
M Main.hs => Main.hs +1 -1
@@ 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