summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)))