summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/mulk/benki/util.clj4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj
index 0422735..dcd1a85 100644
--- a/src/mulk/benki/util.clj
+++ b/src/mulk/benki/util.clj
@@ -74,7 +74,9 @@
))
(defn link [& args]
- (resolve-uri (apply linkrel args)))
+ (match [(vec args)]
+ [[:login]] (str (:cert-req-base @benki-config) "/login")
+ [args] (resolve-uri (apply linkrel args))))
(defn call-with-auth [thunk]
(if *user*