From d40d87500fe1577c051dbef5e75e40d738ac917b Mon Sep 17 00:00:00 2001 From: Victor Denisov Date: Sun, 19 Jun 2016 19:27:18 -0700 Subject: [PATCH] Fix warning in authSCRAM --- Database/MongoDB/Query.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Database/MongoDB/Query.hs b/Database/MongoDB/Query.hs index 20b6cd4..eaa68d3 100644 --- a/Database/MongoDB/Query.hs +++ b/Database/MongoDB/Query.hs @@ -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