From 316cddd43a7c04f994bf405035b65b3881fbd531 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Wed, 29 Sep 2021 12:25:47 +0200
Subject: Add a method to compare clients

---
 src/scm/webid-oidc/client/client.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/scm/webid-oidc/client/client.scm b/src/scm/webid-oidc/client/client.scm
index 3933391..c6e24b7 100644
--- a/src/scm/webid-oidc/client/client.scm
+++ b/src/scm/webid-oidc/client/client.scm
@@ -100,3 +100,8 @@
           (uri->string (client-id client))
           (jwk:jkt (key-pair client))
           (uri->string (redirect-uri client))))
+
+(define-method (equal? (a <client>) (b <client>))
+  (and (equal? (client-id a) (client-id b))
+       (equal? (key-pair a) (key-pair b))
+       (equal? (redirect-uri a) (redirect-uri b))))
-- 
cgit v1.2.3