From 4785a98ebec20b70f2c397f86e401badcedd19d8 Mon Sep 17 00:00:00 2001
From: David Mosbach <david.mosbach@live.de>
Date: Sun, 21 Jan 2024 20:45:45 +0100
Subject: [PATCH] changed token expiration time

---
 src/AuthCode.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/AuthCode.hs b/src/AuthCode.hs
index 676d530..101b232 100644
--- a/src/AuthCode.hs
+++ b/src/AuthCode.hs
@@ -145,7 +145,7 @@ mkToken u scopes state = do
   now <- getCurrentTime
   uuid <- nextRandom
   let
-    lifetimeAT = 120 :: NominalDiffTime -- TODO make configurable
+    lifetimeAT = 3600 :: NominalDiffTime -- TODO make configurable
     lifetimeRT = nominalDay -- TODO make configurable
     at = JWT "Oauth2MockServer" (lifetimeAT `addUTCTime` now) uuid
     rt = JWT "Oauth2MockServer" (lifetimeRT `addUTCTime` now) uuid