From 05dd57731a3fdb8778892d5ee7f4a588ae9f3ea6 Mon Sep 17 00:00:00 2001 From: Michael Klishin Date: Mon, 11 May 2015 01:20:18 +0300 Subject: [PATCH] Adapt to 3.0 --- src/clojure/monger/core.clj | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/clojure/monger/core.clj b/src/clojure/monger/core.clj index a4074ca..792ba98 100644 --- a/src/clojure/monger/core.clj +++ b/src/clojure/monger/core.clj @@ -56,6 +56,15 @@ (MongoClient. server-list options)) ;; connect to a single instance (MongoClient. ^ServerAddress server-address options))) + ([server-address ^MongoClientOptions options credentials] + (let [creds (if (coll? credentials) + credentials + [credentials])] + (if (coll? server-address) + (let [server-list ^ArrayList (ArrayList. ^java.util.Collection server-address) + ] + (MongoClient. server-list creds options)) + (MongoClient. ^ServerAddress server-address options)))) ([{ :keys [host port uri] :or { host *mongodb-host* port *mongodb-port* }}] (MongoClient. ^String host ^Long port)))