@@ -63,7 +63,7 @@ generateTokenM = do
63 activationToken <- randomBytes 64
63 activationToken <- randomBytes 64
64 deactivationToken <- randomBytes 64
64 deactivationToken <- randomBytes 64
65 code <- randomR (0, 999999)
65 code <- randomR (0, 999999)
66− expire <- liftIO $ fmap (addUTCTime (nominalDay * 365)) getCurrentTime -- one year
66+ expire <- liftIO $ fmap (addUTCTime (60*30 {- 30 minutes -} {- nominalDay * 365 -})) getCurrentTime -- one year
67 return $ \ uId ua -> GeneratedToken {
67 return $ \ uId ua -> GeneratedToken {
68 generatedToken = Token uId (hash token) expire (Just . hashVerificationCode $ code) 10 ua (Just . hash $ activationToken) (hash deactivationToken),
68 generatedToken = Token uId (hash token) expire (Just . hashVerificationCode $ code) 10 ua (Just . hash $ activationToken) (hash deactivationToken),
69 generatedTokenValue = token,
69 generatedTokenValue = token,