diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-29 12:25:47 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-01 12:32:20 +0200 |
| commit | 316cddd43a7c04f994bf405035b65b3881fbd531 (patch) | |
| tree | 3abcb878c9fe94cd5cd6e374483e93c587c9f0a6 | |
| parent | 15b860bb97a40454e71500fa5d10939ba2daa5b9 (diff) | |
Add a method to compare clients
| -rw-r--r-- | src/scm/webid-oidc/client/client.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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)))) |