suzanne.soy/racket-pkg-website
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dynamic-urlprefix in authentication-wrap*.

Browse Source
This commit is contained in:
Tony Garnock-Jones 2015-09-24 17:39:26 -04:00
parent 35f9c16cdc
commit 534b8ee601
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/site.rkt
View File

@ -149,7 +149,7 @@
(define requested-url (url->string (request-uri request))) (define requested-url (url->string (request-uri request)))
(if (and require-login? (not session)) (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 (parameterize ((bootstrap-navbar-extension
(cond (cond
[(not session) [(not session)