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

Prepend dynamic-urlprefix on login-style pages' k parameters

Browse Source
This commit is contained in:
Tony Garnock-Jones 2015-09-24 15:44:44 -04:00
parent b8d0b17e33
commit 9a3b291bd3
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

@ -252,7 +252,7 @@
(define (login-or-register-url k baseurl) (define (login-or-register-url k baseurl)
(format "~a?~a" (format "~a?~a"
baseurl baseurl
(alist->form-urlencoded (list (cons 'k k))))) (alist->form-urlencoded (list (cons 'k (string-append dynamic-urlprefix k))))))
(define (login-or-register-flow request thunk) (define (login-or-register-flow request thunk)
(define-form-bindings request ([k (named-url main-page)])) (define-form-bindings request ([k (named-url main-page)]))