From b36958c4505edbe32aabc3acf911f35de7d7c531 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sun, 17 Jun 2012 15:21:58 +0200
Subject: Fix previous fix for (link :login).

---
 src/mulk/benki/util.clj | 6 ++----
 1 file 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)))
-- 
cgit v1.2.3