make "auth" method return access-token on success

Junker · Jul 18, 2024 · a59a3bf · a59a3bf
1 parent 36dedb0
commit a59a3bf
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/gapi.lisp b/gapi.lisp
@@ -77,9 +77,9 @@
 (defmethod auth ((client client))
   (let ((response (%auth (client-token-uri client)
                          (generate-jwt client))))
-    (setf (client-access-token client) (getf response :|access_token|)
-          (client-access-token-expires-at client) (+ (get-universal-time)
-                                                     (getf response :|expires_in|)))))
+    (setf (client-access-token-expires-at client) (+ (get-universal-time)
+                                                     (getf response :|expires_in|))
+          (client-access-token client) (getf response :|access_token|))))
 
 (defmethod client-access-token-expired-p ((client client))
   (> (get-universal-time)