diff options
-rw-r--r-- | src/scm/webid-oidc/provider-confirmation.scm | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/scm/webid-oidc/provider-confirmation.scm b/src/scm/webid-oidc/provider-confirmation.scm index aa9e085..c0d7ea8 100644 --- a/src/scm/webid-oidc/provider-confirmation.scm +++ b/src/scm/webid-oidc/provider-confirmation.scm @@ -101,11 +101,6 @@ (define* (confirm-provider subject issuer #:key (http-get http-get)) - (define (search lst) - (if (null? lst) - (raise-unconfirmed-provider subject issuer) - (or (string=? (car lst) (uri->string issuer)) - (search (cdr lst))))) (unless (string=? (uri-host subject) (uri-host issuer)) (let search ((providers (get-provider-confirmations subject |