diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-05-18 00:15:08 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-05-18 00:49:21 +0200 |
| commit | ae0ed4516223004be40cca08eb3b698c2cb91577 (patch) | |
| tree | b0805f5605fc1766950384ec2c7ee39e576c9d04 | |
| parent | de02a3625177a2e1f09770914b615dbb7fd3da80 (diff) | |
fixup! Add an authorization code data structure
| -rw-r--r-- | src/scm/webid-oidc/authorization-code.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/authorization-code.scm b/src/scm/webid-oidc/authorization-code.scm index 93db73c..ebe97c4 100644 --- a/src/scm/webid-oidc/authorization-code.scm +++ b/src/scm/webid-oidc/authorization-code.scm @@ -39,7 +39,7 @@ (define-public (authorization-code-payload? x) (false-if-exception - (and (the-authorization-code-apayload x) #t))) + (and (the-authorization-code-payload x) #t))) (define-public (the-authorization-code x) (with-exception-handler @@ -131,7 +131,7 @@ (- exp current-time)) (with-exception-handler (lambda (error) - (raise-jti-found (dpop-proof-jti decoded) error)) + (raise-jti-found (authorization-code-jti code) error)) (lambda () (error "the jti-check function returned #f")))) code))))) |