From 52bec4651a10f3ad9381af47fe2f0d79ee5bf4f7 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 30 Sep 2015 01:44:50 -0400
Subject: [PATCH] Retrieve existing session if signing in from static page with
 active session.

---
 src/site.rkt | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/site.rkt b/src/site.rkt
index 06216a0..e905acf 100644
--- a/src/site.rkt
+++ b/src/site.rkt
@@ -269,7 +269,11 @@
 
 (define (login-or-register-flow request thunk)
   (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)
   (with-session-cookie (thunk)