From c4e2d13d7780929721a016d854b3d9e1f450cc43 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Wed, 2 Dec 2015 15:02:09 -0500 Subject: [PATCH] Fix message size for /help --- Main.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Main.hs b/Main.hs index 741a945..c131472 100644 --- a/Main.hs +++ b/Main.hs @@ -656,13 +656,13 @@ processSMS db toVitelity toComponent componentHost conferenceServers tel txt = d "Invite to group: /invite phone-number\n", "Show group participants: /who\n", "Set nick: /nick nickname\n", - "List groups: /list" + "List groups: /list\n", + "Create a group: /create short-name" ] writeStanzaChan toVitelity $ mkSMS tel $ fromString $ mconcat [ - "Create a group: /create short-name\n", "Join existing group: /join group-name\n", "Whisper to user: /msg username message\n", - "Leave group: /leave", + "Leave group: /leave\n", "More info: http://cheogram.com" ] Nothing -> writeStanzaChan toVitelity $ mkSMS tel (fromString "You sent an invalid message") -- 2.38.5