diff options
Diffstat (limited to 'src/scm/webid-oidc/server/endpoint/identity-provider.scm')
| -rw-r--r-- | src/scm/webid-oidc/server/endpoint/identity-provider.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/scm/webid-oidc/server/endpoint/identity-provider.scm b/src/scm/webid-oidc/server/endpoint/identity-provider.scm index 68bb154..7af872e 100644 --- a/src/scm/webid-oidc/server/endpoint/identity-provider.scm +++ b/src/scm/webid-oidc/server/endpoint/identity-provider.scm @@ -246,6 +246,8 @@ (define (verify-password encrypted-password password) (let ((c (crypt password encrypted-password))) + (format (current-error-port) "Verifying password: given ~s (crypts to ~s) to match ~s\n" + password c encrypted-password) (string=? c encrypted-password))) (define (split-args str decode-plus-to-space?) |