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

Fix stupid error from the config changes

Browse Source
This commit is contained in:
Tony Garnock-Jones 2015-01-23 16:37:46 -05:00
parent c9576b8547
commit 579a68703a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/sessions.rkt
View File

@ -42,7 +42,7 @@
(hash-set! (sessions)
session-key
(session session-key
(+ (current-inexact-milliseconds) (session-lifetime))
(+ (current-inexact-milliseconds) session-lifetime)
email
password))
session-key)
@ -54,7 +54,7 @@
(define s (hash-ref (sessions) session-key (lambda () #f)))
(and s
(let ((s1 (struct-copy session s [expiry (+ (current-inexact-milliseconds)
(session-lifetime))])))
session-lifetime)])))
(hash-set! (sessions) session-key s1)
s1)))