fix: github no expires in

2026-06-01 10:25:18 +00:00 · 2022-03-05 14:58:56 +01:00
parent 051528a7d9
commit f5c2996b93
1 changed files with 1 additions and 3 deletions
@@ -61,9 +61,7 @@ getGithubTokens code = do
        Left _ -> Nothing
        Right obj -> do
            access <- lookupObjString obj "access_token"
-            expiresIn <- lookupObjInt obj "expires_in"
-            let expiresAt = addUTCTime (fromInteger . fromIntegral $ expiresIn) currTime
-            Just $ ExternalToken (pack access) "" expiresAt Github
+            Just $ ExternalToken (pack access) "" currTime Github

 -- DISCORD
 getDiscordConfig :: IO OAuth2Conf