diff options
| -rw-r--r-- | src/mulk/benki/util.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj index dd118bb..46e187d 100644 --- a/src/mulk/benki/util.clj +++ b/src/mulk/benki/util.clj @@ -76,6 +76,9 @@ (defn link [& args] (resolve-uri (apply linkrel args))) +(defn redirect [x] + {:status 302, :headers {"Location" x}, :body ""}) + (defn call-with-auth [thunk] (if *user* (thunk) @@ -88,9 +91,6 @@ (defmacro with-auth [& body] `(call-with-auth (fn [] ~@body))) -(defn redirect [x] - {:status 302, :headers {"Location" x}, :body ""}) - (defn format-date [x] (.format (DateFormat/getDateTimeInstance DateFormat/FULL DateFormat/FULL) x)) |