From 69049f99646f456429c96e4d741a5d34d0765d6f Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Tue, 2 Feb 2016 19:16:54 -0500 Subject: [PATCH] We want the digits, this was backwards --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Main.hs b/Main.hs index 701fd7f..0d9822b 100644 --- a/Main.hs +++ b/Main.hs @@ -421,7 +421,7 @@ handleRegister db toVitelity toComponent _ iq@(IQ { iqType = IQSet }) query sendRegisterVerification db toVitelity toComponent tel iq handleRegister db toVitelity toComponent _ iq@(IQ { iqType = IQSet }) query | [phoneEl] <- isNamed (fromString "{jabber:iq:register}phone") =<< elementChildren query, - Just tel <- normalizeTel $ T.filter (not . isDigit) $ mconcat (elementText phoneEl) = do + Just tel <- normalizeTel $ T.filter isDigit $ mconcat (elementText phoneEl) = do log "HANDLEREGISTER IQSet jabber:iq:register phone" iq sendRegisterVerification db toVitelity toComponent tel iq handleRegister db toVitelity toComponent componentHost iq@(IQ { iqType = IQSet }) query -- 2.38.5