From 85e84e2e6cd74a63275abe49e999cca52c7dd3e8 Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
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