From 9385651dcdf2c3029fdb9e79628c894d5bd8486d Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Wed, 27 May 2015 11:25:51 -0300
Subject: [PATCH] Base64 is case sensitive.

---
 serversession/src/Web/ServerSession/Core/Internal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/serversession/src/Web/ServerSession/Core/Internal.hs b/serversession/src/Web/ServerSession/Core/Internal.hs
index 0272a08..e47d681 100644
--- a/serversession/src/Web/ServerSession/Core/Internal.hs
+++ b/serversession/src/Web/ServerSession/Core/Internal.hs
@@ -92,7 +92,7 @@ checkSessionId text = do
   let bs = TE.encodeUtf8 text
   decoded <- either (const Nothing) Just $ B64URL.decode bs
   guard (B8.length decoded == 18)
-  return $ S $ T.toLower text
+  return $ S text
 
 
 -- | Securely generate a new SessionId.