Fix warning in authSCRAM

2016-06-19 19:27:18 -07:00 · 2016-06-19 19:27:18 -07:00 · d40d87500f
commit d40d87500f
parent f3e1f3b42d
1 changed files with 4 additions and 2 deletions
--- 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