diff options
-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)))) |