Browse Source

remove redundant xmppRestartStream from DigestMD5

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

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

@ -63,7 +63,6 @@ xmppDigestMd5 authcid authzid password = do @@ -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.

Loading…
Cancel
Save