From 85e84e2e6cd74a63275abe49e999cca52c7dd3e8 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Tue, 24 Nov 2015 15:41:00 -0500 Subject: [PATCH] Use tel as nick --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Main.hs b/Main.hs index 3733a49..02a1354 100644 --- a/Main.hs +++ b/Main.hs @@ -177,7 +177,7 @@ viteltiy db toVitelity toComponent = do forever $ flip catchError (const $ return ()) $ do m <- getMessage <$> getStanza liftIO $ case (strNode <$> (jidNode =<< messageFrom =<< m), getBody "jabber:client" =<< m) of - (Just tel, Just txt) -> case parseCommand txt (fromString "thenick") of + (Just tel, Just txt) -> case parseCommand txt tel of Just (Join room) -> do existingRoom <- (parseJID . fromString =<<) <$> TC.runTCM (TC.get db $ T.unpack tel) forM_ existingRoom $ \leaveRoom -> -- 2.38.5