From 02d0448f61a87f70a9e99588d8c1056ff0e02b4f Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sun, 17 Jun 2012 15:17:39 +0200
Subject: Fix (link :login).

---
 src/mulk/benki/util.clj | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

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*
-- 
cgit v1.2.3