summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/mulk/benki/util.clj5
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]