Fix warning in authSCRAM

This commit is contained in:
Victor Denisov 2016-06-19 19:27:18 -07:00
parent f3e1f3b42d
commit d40d87500f
No known key found for this signature in database
GPG key ID: 89596023D19E4238

View file

@ -288,8 +288,10 @@ authSCRAMSHA1 un pw = do
if done
then return True
else do
let client2 = ["saslContinue" =: (1 :: Int), "conversationId" =: (at "conversationId" server1 :: Int), "payload" =: String ""]
server3 <- runCommand client2
let client2Step2 = [ "saslContinue" =: (1 :: Int)
, "conversationId" =: (at "conversationId" server1 :: Int)
, "payload" =: String ""]
server3 <- runCommand client2Step2
shortcircuit (true1 "ok" server3) $ do
return True
where