diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-15 17:32:34 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-13 19:26:45 +0200 |
commit | 1aff15156a7e97b7c04507508e6313033288226d (patch) | |
tree | 2accc7546920b99ffe00f48781361f131ce87950 /src/scm | |
parent | 44d80f685c01887f4b804de670dd59b7dd3a7c5e (diff) |
Fix a syntax error
Diffstat (limited to 'src/scm')
-rw-r--r-- | src/scm/webid-oidc/serve.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/serve.scm b/src/scm/webid-oidc/serve.scm index db95089..66a156c 100644 --- a/src/scm/webid-oidc/serve.scm +++ b/src/scm/webid-oidc/serve.scm @@ -75,8 +75,9 @@ (let ((final-message (format #f (G_ "content negociation failed while serving a request")))) (raise-exception - (make-not-acceptable client-accepts path content-type) - (make-exception-with-message final-message))) + (make-exception + (make-not-acceptable client-accepts path content-type) + (make-exception-with-message final-message)))) (let ((request (caar accepts))) (cond ((or (eq? request content-type) |