From e8e7e2bb750f13da088f414ecde7424cf1665e6f Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Tue, 1 Dec 2015 10:43:53 -0500 Subject: [PATCH] When only "not joined" message is delivered, be more helpful As suggested in #3 --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Main.hs b/Main.hs index 35c48df..9ed465e 100644 --- a/Main.hs +++ b/Main.hs @@ -621,7 +621,7 @@ processSMS db toVitelity toComponent componentHost conferenceServers tel txt = d [NodeContent $ ContentText $ mconcat [tel, fromString " has invited you to join ", formatJID room]] ] } - | otherwise -> writeStanzaChan toVitelity $ mkSMS tel (fromString "You are not joined to a group") + | otherwise -> writeStanzaChan toVitelity $ mkSMS tel (fromString "You are not joined to a group. Reply with /help to learn more") Just (SetNick nick) -> do forM_ existingRoom $ \room -> do let toJoin = parseJID (bareTxt room <> fromString "/" <> nick) @@ -665,7 +665,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" True <- liftIO (TC.runTCM $ TC.put db (tcKey tel "welcomed") (fromEnum True)) liftIO $ threadDelay wait -- 2.45.2