Fix warning in authSCRAM
This commit is contained in:
parent
f3e1f3b42d
commit
d40d87500f
1 changed files with 4 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue