Browse Source

remove redundant xmppRestartStream from DigestMD5

master
Philipp Balzarek 13 years ago
parent
commit
b47da8db10
  1. 3
      source/Network/Xmpp/Sasl/Mechanisms/DigestMd5.hs

3
source/Network/Xmpp/Sasl/Mechanisms/DigestMd5.hs

@ -63,7 +63,6 @@ xmppDigestMd5 authcid authzid password = do
cnonce <- liftIO $ makeNonce cnonce <- liftIO $ makeNonce
_b <- respond . Just $ createResponse hostname pairs cnonce _b <- respond . Just $ createResponse hostname pairs cnonce
challenge2 <- pullFinalMessage challenge2 <- pullFinalMessage
_ <- ErrorT $ left AuthStreamError <$> xmppRestartStream
return () return ()
where where
-- Produce the response to the challenge. -- Produce the response to the challenge.
@ -137,4 +136,4 @@ digestMd5 :: Text -- ^ Authentication identity (authcid or username)
-> SaslHandler -> SaslHandler
digestMd5 authcid authzid password = ( "DIGEST-MD5" digestMd5 authcid authzid password = ( "DIGEST-MD5"
, xmppDigestMd5 authcid authzid password , xmppDigestMd5 authcid authzid password
) )

Loading…
Cancel
Save