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

Retrieve existing session if signing in from static page with active session.

Browse Source
This commit is contained in:
Tony Garnock-Jones 2015-09-30 01:44:50 -04:00
parent cf559766b7
commit 52bec4651a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/site.rkt
View File

@ -269,7 +269,11 @@
(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)]))
(login-or-register-flow* k thunk)) (define session (request->session request))
(if session
(with-site-config
(bootstrap-redirect k))
(login-or-register-flow* k thunk)))
(define (login-or-register-flow* k thunk) (define (login-or-register-flow* k thunk)
(with-session-cookie (thunk) (with-session-cookie (thunk)