diff options
| -rw-r--r-- | src/mulk/benki/util.clj | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj index fa5ca77..99e739c 100644 --- a/src/mulk/benki/util.clj +++ b/src/mulk/benki/util.clj @@ -63,7 +63,10 @@ (defn call-with-auth [thunk] (if *user* (thunk) - (do (session/flash-put! (:uri (request/ring-request))) + (do (session/flash-put! (str (:uri (request/ring-request)) + (if-let [q (:query-string (request/ring-request))] + (str "?" q) + ""))) (response/redirect "/login")))) (defmacro with-auth [& body] |