luciano/monger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

3rd correction

Browse source
This commit is contained in:
Michael S. Klishin 2012-06-27 19:08:55 +04:00
parent 2fcdfab8ba
commit ff77d3ccd7
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/clojure/monger/ring/session_store.clj
View file

@ -28,10 +28,6 @@
ClojureReaderBasedMongoDBSessionStore ClojureReaderBasedMongoDBSessionStore
(read-session [store key] (read-session [store key]
#_ (if-let [m (and key
(mc/find-one-as-map (.collection-name store) {:_id key}))]
m
{})
(if key (if key
(if-let [m (mc/find-one-as-map (.collection-name store) {:_id key})] (if-let [m (mc/find-one-as-map (.collection-name store) {:_id key})]
(read-string (:value m)) (read-string (:value m))
@ -42,8 +38,8 @@
(let [date (Date.) (let [date (Date.)
key (or key (str (UUID/randomUUID))) key (or key (str (UUID/randomUUID)))
value (binding [*print-dup* true] value (binding [*print-dup* true]
(pr-str (assoc data :date date :_id key)))] (pr-str (assoc data :_id key)))]
(mc/save (.collection-name store) {:_id key :value value}) (mc/save (.collection-name store) {:_id key :value value :date date})
key)) key))
(delete-session [store key] (delete-session [store key]