Permalink
Browse files

correct cache set error

Data returned on cache set was not valid. Should be returning the
actual result, not the cache map itself.
  • Loading branch information...
1 parent 5811a68 commit f336b9abc0091cb6e310a5d7bc8a9d0714951330 @rmarianski committed May 12, 2012
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/docphoto/core.clj
View
@@ -91,7 +91,8 @@
~'cache-set (fn [cache# args# result#]
(session/set-cache
*request*
- (assoc-in cache# (cache-key-fn# args#) result#)))]
+ (assoc-in cache# (cache-key-fn# args#) result#))
+ result#)]
~@body))
(defn cache-under [cache-key] (fn [args] [cache-key args]))

0 comments on commit f336b9a

Please sign in to comment.