From ff77d3ccd7d19232bdb0f1d3193d4cf628764de4 Mon Sep 17 00:00:00 2001 From: "Michael S. Klishin" Date: Wed, 27 Jun 2012 19:08:55 +0400 Subject: [PATCH] 3rd correction --- src/clojure/monger/ring/session_store.clj | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/src/clojure/monger/ring/session_store.clj b/src/clojure/monger/ring/session_store.clj index 51fdb53..80e1008 100644 --- a/src/clojure/monger/ring/session_store.clj +++ b/src/clojure/monger/ring/session_store.clj @@ -28,10 +28,6 @@ ClojureReaderBasedMongoDBSessionStore (read-session [store key] - #_ (if-let [m (and key - (mc/find-one-as-map (.collection-name store) {:_id key}))] - m - {}) (if key (if-let [m (mc/find-one-as-map (.collection-name store) {:_id key})] (read-string (:value m)) @@ -42,8 +38,8 @@ (let [date (Date.) key (or key (str (UUID/randomUUID))) value (binding [*print-dup* true] - (pr-str (assoc data :date date :_id key)))] - (mc/save (.collection-name store) {:_id key :value value}) + (pr-str (assoc data :_id key)))] + (mc/save (.collection-name store) {:_id key :value value :date date}) key)) (delete-session [store key]