diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-06-17 15:21:58 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-06-17 15:21:58 +0200 |
| commit | b36958c4505edbe32aabc3acf911f35de7d7c531 (patch) | |
| tree | ae44b1cecc6404cfcf7747b2c3b1314f025acf95 /src | |
| parent | 02d0448f61a87f70a9e99588d8c1056ff0e02b4f (diff) | |
Fix previous fix for (link :login).
Diffstat (limited to 'src')
| -rw-r--r-- | src/mulk/benki/util.clj | 6 |
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))) |