diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-06-17 15:17:39 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-06-17 15:17:39 +0200 |
| commit | 02d0448f61a87f70a9e99588d8c1056ff0e02b4f (patch) | |
| tree | a924a4e606ac3ca54122af62929484e5ab98869a | |
| parent | a17c3dcc2bf0f2f2be05c091ab1143e8f9f51146 (diff) | |
Fix (link :login).
| -rw-r--r-- | src/mulk/benki/util.clj | 4 |
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* |