From 36dcf521a2f5d98c351d9c8014066a5efa81d1fc Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Tue, 1 Dec 2015 17:05:11 -0500 Subject: [PATCH] Reference cheogram.com --- Main.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/Main.hs b/Main.hs index c8756ae..54575e2 100644 --- a/Main.hs +++ b/Main.hs @@ -662,7 +662,8 @@ processSMS db toVitelity toComponent componentHost conferenceServers tel txt = d "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", + "More info: http://cheogram.com" ] Nothing -> writeStanzaChan toVitelity $ mkSMS tel (fromString "You sent an invalid message") @@ -675,7 +676,7 @@ viteltiy db chunks toVitelity toComponent componentHost conferenceServers = do forM_ (strNode <$> (jidNode =<< stanzaTo stanza)) $ \tel -> do welcomed <- maybe False toEnum <$> liftIO (TC.runTCM $ TC.get db $ tcKey tel "welcomed") unless welcomed $ do - putStanza $ mkSMS tel $ fromString "Welcome to CheoGram! You can chat with groups of friends (one at a time), by replying to this number. Reply with /help to learn more" + putStanza $ mkSMS tel $ fromString "Welcome to CheoGram! You can chat with groups of friends (one at a time), by replying to this number. Reply with /help to learn more or visit cheogram.com" True <- liftIO (TC.runTCM $ TC.put db (tcKey tel "welcomed") (fromEnum True)) liftIO $ threadDelay wait -- 2.38.5