From b47da8db10687f6cc9029e4221589d23a9c4a36d Mon Sep 17 00:00:00 2001 From: Philipp Balzarek Date: Sat, 1 Dec 2012 22:42:21 +0100 Subject: [PATCH] remove redundant xmppRestartStream from DigestMD5 --- source/Network/Xmpp/Sasl/Mechanisms/DigestMd5.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/source/Network/Xmpp/Sasl/Mechanisms/DigestMd5.hs b/source/Network/Xmpp/Sasl/Mechanisms/DigestMd5.hs index d8b9a7d..229f5b0 100644 --- a/source/Network/Xmpp/Sasl/Mechanisms/DigestMd5.hs +++ b/source/Network/Xmpp/Sasl/Mechanisms/DigestMd5.hs @@ -63,7 +63,6 @@ xmppDigestMd5 authcid authzid password = do cnonce <- liftIO $ makeNonce _b <- respond . Just $ createResponse hostname pairs cnonce challenge2 <- pullFinalMessage - _ <- ErrorT $ left AuthStreamError <$> xmppRestartStream return () where -- Produce the response to the challenge. @@ -137,4 +136,4 @@ digestMd5 :: Text -- ^ Authentication identity (authcid or username) -> SaslHandler digestMd5 authcid authzid password = ( "DIGEST-MD5" , xmppDigestMd5 authcid authzid password - ) \ No newline at end of file + )