mongoDB 2.0.9 → 2.0.10

raw patch · 3 files changed

+16/−2 lines, 3 files

Files

CHANGELOG.md +5/−0
Database/MongoDB/Query.hs +10/−1
mongoDB.cabal +1/−1

CHANGELOG.md view

@@ -2,6 +2,11 @@ All notable changes to this project will be documented in this file. This project adheres to [Package Versioning Policy](https://wiki.haskell.org/Package_versioning_policy). +## [2.0.10] - 2015-12-22++### Fixed+- SCRAM-SHA-1 authentication for mongolab+ ## [2.0.9] - 2015-11-07  ### Added

Database/MongoDB/Query.hs view

@@ -271,7 +271,16 @@                 let serverPayload2 = B64.decodeLenient . B.pack $ at "payload" server2                 let serverData2 = parseSCRAM serverPayload2                 let serverSigComp = Map.findWithDefault "" "v" serverData2-                return (serverSig == serverSigComp)++                shortcircuit (serverSig == serverSigComp) $ do+                  let done = true1 "done" server2+                  if done+                    then return True+                    else do+                      let client2 = ["saslContinue" =: (1 :: Int), "conversationId" =: (at "conversationId" server1 :: Int), "payload" =: String ""]+                      server3 <- runCommand client2+                      shortcircuit (true1 "ok" server3) $ do+                        return True     where     shortcircuit True f = f     shortcircuit False _ = return False

mongoDB.cabal view

@@ -1,5 +1,5 @@ Name:           mongoDB-Version:        2.0.9+Version:        2.0.10 Synopsis:       Driver (client) for MongoDB, a free, scalable, fast, document                 DBMS Description:    This package lets you connect to MongoDB servers and