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