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.