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

limit the session key as per the the definition comment 'The ID of a session. Always 18 bytes base64url-encoded as 24 characters.' using 30 characters to be conservative

Browse Source
This commit is contained in:
Casey Allred 2017-01-23 21:33:02 +00:00
parent c2c1718f11
commit 37590b9e3e
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-backend-persistent/src/Web/ServerSession/Backend/Persistent/Internal/Impl.hs
View File

@ -150,7 +150,7 @@ instance forall sess. P.PersistFieldSql (Decomposed sess) => P.PersistEntity (Pe
(P.DBName "key") (P.DBName "key")
(P.FTTypeCon Nothing "SessionId sess") (P.FTTypeCon Nothing "SessionId sess")
(P.sqlType (Proxy :: Proxy (SessionId sess))) (P.sqlType (Proxy :: Proxy (SessionId sess)))
[] ["maxlen=30"]
True True
P.NoReference P.NoReference
persistFieldDef PersistentSessionAuthId persistFieldDef PersistentSessionAuthId