Base64 is case sensitive.

2015-05-27 11:25:51 -03:00 · 2015-05-27 11:25:51 -03:00 · 9385651dcd
commit 9385651dcd
parent 2415e19316
1 changed files with 1 additions and 1 deletions
--- 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.