diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-05-18 00:17:31 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-05-18 00:49:21 +0200 |
| commit | 7b3b7dcff9615255ed6f8bfa70f1f593609be2a5 (patch) | |
| tree | ca296f7cb4d7c09cf69cd130d0eec7137f4f861d | |
| parent | a8cc0aba66c9f25693d2c58787a6e24199e50af1 (diff) | |
fixup! Implement the DPoP proof
| -rw-r--r-- | src/scm/webid-oidc/errors.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/scm/webid-oidc/errors.scm b/src/scm/webid-oidc/errors.scm index bbbbc1c..47afeb7 100644 --- a/src/scm/webid-oidc/errors.scm +++ b/src/scm/webid-oidc/errors.scm @@ -564,11 +564,11 @@ (make-exception-type '&cannot-encode-dpop-proof &external-error - '(value cause))) + '(dpop-proof key cause))) -(define-public (raise-cannot-encode-dpop-proof value cause) +(define-public (raise-cannot-encode-dpop-proof dpop-proof key cause) (raise-exception - ((record-constructor &cannot-encode-dpop-proof) value cause))) + ((record-constructor &cannot-encode-dpop-proof) dpop-proof key cause))) (define-public &cannot-fetch-linked-data (make-exception-type @@ -1158,9 +1158,9 @@ (expected (format #f (G_ "the key ~s does not hash to ~a") key expected)) (cause - (format #f (G_ "the key confirmation of ~s failed (because ~a)" key (recurse cause)))) + (format #f (G_ "the key confirmation of ~s failed (because ~a)") key (recurse cause))) (else - (format #f (G_ "the key confirmation of ~s failed" key)))))) + (format #f (G_ "the key confirmation of ~s failed") key))))) ((&jti-found) (format #f (G_ "the jti ~s has already been found (because ~a)") (get 'jti) (recurse (get 'cause)))) |