diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-02 17:04:05 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-02 17:04:05 +0200 |
commit | 58530d7e06040d3fe2df946aad7bac8cee224bb4 (patch) | |
tree | 3cdaee1630ecfc793f8d7abcd6c7a1e046cc9077 | |
parent | 5936c689089acf2c3a863f12dd49b28ed027c63c (diff) |
Do not mask errors when checking the precondition for GET
-rw-r--r-- | src/scm/webid-oidc/resource-server.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/scm/webid-oidc/resource-server.scm b/src/scm/webid-oidc/resource-server.scm index 7f9c8f9..0eda41f 100644 --- a/src/scm/webid-oidc/resource-server.scm +++ b/src/scm/webid-oidc/resource-server.scm @@ -149,6 +149,8 @@ #:http-get http-get) (with-exception-handler (lambda (error) + (unless (precondition-failed? error) + (raise-exception error)) (let ((true-content-type (car (assq-ref headers 'content-type))) (other-headers |