haskell/serversession
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Base64 is case sensitive.

Browse Source
This commit is contained in:
Felipe Lessa 2015-05-27 11:25:51 -03:00
parent 2415e19316
commit 9385651dcd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
serversession/src/Web/ServerSession/Core/Internal.hs
View File

@ -92,7 +92,7 @@ checkSessionId text = do
let bs = TE.encodeUtf8 text let bs = TE.encodeUtf8 text
decoded <- either (const Nothing) Just $ B64URL.decode bs decoded <- either (const Nothing) Just $ B64URL.decode bs
guard (B8.length decoded == 18) guard (B8.length decoded == 18)
return $ S $ T.toLower text return $ S text
-- | Securely generate a new SessionId. -- | Securely generate a new SessionId.