Vergara_Tech/mongodb
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix warning in authSCRAM

Browse source
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
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Database/MongoDB/Query.hs
View file

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