Clojure <-> Monger <-> MongoDB：读写集合

Question

我使用Monger在MongoDB中存储数据。我想存储一个Clojure集合。读取和写入集合是有效的，但它作为列表返回。我怀疑MongoDB实际上不支持set数据类型，所以Monger客户端也不支持，但希望我错了。

是否有某种方法可以让Monger返回我存储的正确类型的集合?

最小Leiningen示例如下(这只是最基本的Monger示例):

> lein new mongo-test
> cd mongo-test

编辑项目。clj添加Monger依赖:

(defproject mongo-test "0.1.0-SNAPSHOT"
  :dependencies [[org.clojure/clojure "1.5.1"]
                 [com.novemberain/monger "2.0.0-rc1"]])

启动REPL:

> lein repl

插入并读回一个集合-注意找到的值是一个列表，而不是一个集合:

user=> (require '[monger.core :as mg])
nil
user=> (require '[monger.collection :as mc])
nil
user=> (def conn (mg/connect))
#'user/conn
user=> (def db (mg/get-db conn "monger-test"))
#'user/db
user=> (mc/remove db "things")
#<WriteResult { "serverUsed" : "127.0.0.1:27017" , "n" : 1 , "connectionId" : 248 , "err" :  null  , "ok" : 1.0}>
user=> (mc/insert db "things" {:set #{"A" 1}})
#<WriteResult { "serverUsed" : "127.0.0.1:27017" , "n" : 0 , "connectionId" : 248 , "err" :  null  , "ok" : 1.0}>
user=> (.next (mc/find db "things"))
{"_id" #<ObjectId 537ce43130045df5b9ff1102>, "set" [1 "A"]}
user=> (get (.next (mc/find db "things")) "set")
[1 "A"]
user=> (type (get (.next (mc/find db "things")) "set"))
com.mongodb.BasicDBList
user=> (set (get (.next (mc/find db "things")) "set"))
#{1 "A"}
user=> (type (set (get (.next (mc/find db "things")) "set")))
clojure.lang.PersistentHashSet

显然，我可以将结果传递给set，就像最后两行一样，但我不想为每个特定的键调用它。有没有办法让这一切透明地发生?

Answer 1

你是没有错的，MongoDB没有内置的数据类型的集合。您的最后一个示例是处理此问题的完全有效的方法，就像调用

一样

(update-in results [..path.here.. "set"] set) 

在真正需要使用集合的情况下使用

。