From f6f02d53d000cb2b91b2feedab8b24689e7d41e0 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Sun, 29 Nov 2015 14:33:16 -0500 Subject: [PATCH] Better part message --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Main.hs b/Main.hs index 18abd4e..1bf6eee 100644 --- a/Main.hs +++ b/Main.hs @@ -463,7 +463,7 @@ processSMS db toVitelity toComponent componentHost conferenceServers tel txt = d Just (Join room) -> do leaveRoom db toComponent componentHost tel "Joined a different room." joinRoom db toComponent componentHost tel room - Just Leave -> leaveRoom db toComponent componentHost tel "Left" + Just Leave -> leaveRoom db toComponent componentHost tel "Typed /leave" Just (InviteCmd jid) | Just room <- existingRoom -> do writeStanzaChan toComponent $ (emptyMessage MessageNormal) { -- 2.38.4