Permalink
Browse files

Merge branch 'master' of https://github.com/PetrGlad/friend

  • Loading branch information...
2 parents 5c3e743 + f2ccfa1 commit 2dc22f71426146e3dc73fa50356a5006bae8dac3 @cemerick committed Nov 26, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/cemerick/friend.clj
View
@@ -227,7 +227,7 @@ Equivalent to (complement current-authentication)."}
[& body]
(let [[unauthorized-info body] (if (map? (first body)) body [nil body])]
`(if (current-authentication *identity*)
- ~@body
+ (do ~@body)
(#'throw-unauthorized *identity* (merge ~unauthorized-info
{::exprs (quote [~@body])
::type :unauthenticated})))))

0 comments on commit 2dc22f7

Please sign in to comment.