diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-15 17:45:33 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-13 19:44:44 +0200 |
| commit | a873f2bc92c135ff15d3e8567fa1a22cb1eb80fa (patch) | |
| tree | 4bc2f72b386627e2f8a4fab8b4a5b4a535adb621 /src/scm/webid-oidc/provider-confirmation.scm | |
| parent | a73535617cb572d7b52805cb7d086cffad58598d (diff) | |
Remove dead code
Diffstat (limited to 'src/scm/webid-oidc/provider-confirmation.scm')
| -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 |