dynamic-urlprefix in authentication-wrap*.

This commit is contained in:
Tony Garnock-Jones 2015-09-24 17:39:26 -04:00
parent 35f9c16cdc
commit 534b8ee601

View File

@ -149,7 +149,7 @@
(define requested-url (url->string (request-uri request)))
(if (and require-login? (not session))
(login-or-register-flow* requested-url login-form)
(login-or-register-flow* (string-append dynamic-urlprefix requested-url) login-form)
(parameterize ((bootstrap-navbar-extension
(cond
[(not session)