From 579a68703abaf1902910599922f37b6cd1644420 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Fri, 23 Jan 2015 16:37:46 -0500
Subject: [PATCH] Fix stupid error from the config changes

---
 src/sessions.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/sessions.rkt b/src/sessions.rkt
index 5618c4f..fea2895 100644
--- a/src/sessions.rkt
+++ b/src/sessions.rkt
@@ -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)))