uniworx/oauth2-mock-server
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed token expiration time

Browse Source
This commit is contained in:
David Mosbach 2024-01-21 20:45:45 +01:00
parent 38e831c9b1
commit 4785a98ebe
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/AuthCode.hs
View File

@ -145,7 +145,7 @@ mkToken u scopes state = do
now <- getCurrentTime now <- getCurrentTime
uuid <- nextRandom uuid <- nextRandom
let let
lifetimeAT = 120 :: NominalDiffTime -- TODO make configurable lifetimeAT = 3600 :: NominalDiffTime -- TODO make configurable
lifetimeRT = nominalDay -- TODO make configurable lifetimeRT = nominalDay -- TODO make configurable
at = JWT "Oauth2MockServer" (lifetimeAT `addUTCTime` now) uuid at = JWT "Oauth2MockServer" (lifetimeAT `addUTCTime` now) uuid
rt = JWT "Oauth2MockServer" (lifetimeRT `addUTCTime` now) uuid rt = JWT "Oauth2MockServer" (lifetimeRT `addUTCTime` now) uuid