gistfile1.clj

(require '[somnium.congomongo :as mongo])
(require '[somnium.congomongo.config :as mongoconfig])
(mongo/drop-database! "congomongotest")
(mongo/mongo! :db "congomongotest")
(mongo/set-write-concern mongoconfig/*mongo-config* :strict)
(mongo/add-index! :users [:userid] :unique true)
(pr (mongo/insert! :users {:userid "aa" :pwhash "bb"}))
;; Statement below fails, i.e. no data gets written, but
;; it still returns a mongodb instance object.. How to
;; detect that an insert failed?
(pr (mongo/insert! :users {:userid "aa" :pwhash "bb"}))