summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-06-17 15:17:39 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-06-17 15:17:39 +0200
commit02d0448f61a87f70a9e99588d8c1056ff0e02b4f (patch)
treea924a4e606ac3ca54122af62929484e5ab98869a /src
parenta17c3dcc2bf0f2f2be05c091ab1143e8f9f51146 (diff)
Fix (link :login).
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*