summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-06-17 15:21:58 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-06-17 15:21:58 +0200
commitb36958c4505edbe32aabc3acf911f35de7d7c531 (patch)
treeae44b1cecc6404cfcf7747b2c3b1314f025acf95 /src
parent02d0448f61a87f70a9e99588d8c1056ff0e02b4f (diff)
Fix previous fix for (link :login).
Diffstat (limited to 'src')
-rw-r--r--src/mulk/benki/util.clj6
1 files changed, 2 insertions, 4 deletions
diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj
index dcd1a85..dd118bb 100644
--- a/src/mulk/benki/util.clj
+++ b/src/mulk/benki/util.clj
@@ -74,9 +74,7 @@
))
(defn link [& args]
- (match [(vec args)]
- [[:login]] (str (:cert-req-base @benki-config) "/login")
- [args] (resolve-uri (apply linkrel args))))
+ (resolve-uri (apply linkrel args)))
(defn call-with-auth [thunk]
(if *user*
@@ -85,7 +83,7 @@
(if-let [q (:query-string (request/ring-request))]
(str "?" q)
"")))
- (response/redirect (link :login)))))
+ (redirect (link :login)))))
(defmacro with-auth [& body]
`(call-with-auth (fn [] ~@body)))