From 9893d65081748a3795df4ba260222e888922823b Mon Sep 17 00:00:00 2001
From: Ray Miller <ray@metail.co.uk>
Date: Mon, 6 May 2024 20:19:40 +0100
Subject: [PATCH] Don't tie client to token-based authentication

---
 gitlab.rkt | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/gitlab.rkt b/gitlab.rkt
index bb0e7a0..9c422b0 100644
--- a/gitlab.rkt
+++ b/gitlab.rkt
@@ -5,6 +5,7 @@
          (only-in srfi/1 alist-cons))
 
 (provide make-client
+         access-token-auth
          api-url
          get
          get-paged
@@ -12,14 +13,14 @@
          list-group-projects
          list-groups)
 
-(struct client (url token))
+(struct client (url auth))
 
-(define (gitlab-token-auth token)
+(define (access-token-auth token)
   (lambda (uri headers params)
     (values (hash-set headers 'private-token token) params)))
 
-(define (make-client #:url (url (string->url "https://gitlab.com")) #:token token)
-  (client url token))
+(define (make-client #:url (url (string->url "https://gitlab.com")) #:auth auth)
+  (client url auth))
 
 (define (api-url c path-parts (query-params '()))
   (struct-copy url
@@ -29,7 +30,7 @@
 
 (define (get c path-parts (query-params '()))
   (let* ((u (api-url c path-parts query-params))
-         (res (http:get u #:auth (gitlab-token-auth (client-token c)))))
+         (res (http:get u #:auth (client-auth c))))
     (if (>= (http:response-status-code res) 300)
         (raise-user-error 'gitlab/get (format "GET ~a: ~a" (url->string u) (http:response-status-message res)))
         res)))