syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Login links now expire in 24h, rather than 10s (!)

This commit is contained in:
Tony Garnock-Jones 2017-02-21 15:01:46 -05:00
parent aff57a1247
commit d2bd2cd63e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
examples/webchat/server/pages.rkt
View File

@ -225,7 +225,7 @@
(stop-when (asserted (session _ sid))) ;; happy path
(stop-when (message (end-session sid)))
(stop-when (message (delete-resource (account email))))
(stop-when-timeout (* 10 1000)))) ;; 10 seconds
(stop-when-timeout (* (* 24 3600) 1000)))) ;; 24h = 1 day
(define (login-link-emailed-page id maybe-insecure-validation-url)
(web-respond/pretty-xexpr!