diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2020-11-29 19:21:28 +0100 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-06-19 15:44:36 +0200 |
| commit | e276d3d60270f5af9e606e8c3afcc365ab7aeacd (patch) | |
| tree | 95b60d0a96e27f8fbd341cdb112e3ef52d60e81e /src/scm/webid-oidc/jwk.scm | |
| parent | e74c0727183e310c479a1d45a472bdef68db9a04 (diff) | |
Get an openid configuration on the web
Diffstat (limited to 'src/scm/webid-oidc/jwk.scm')
| -rw-r--r-- | src/scm/webid-oidc/jwk.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/scm/webid-oidc/jwk.scm b/src/scm/webid-oidc/jwk.scm index db7a41f..fd94b9e 100644 --- a/src/scm/webid-oidc/jwk.scm +++ b/src/scm/webid-oidc/jwk.scm @@ -133,6 +133,8 @@ (response-code response) (response-reason-phrase response))) (let ((content-type (response-content-type response))) + (unless content-type + (raise-unexpected-header-value 'content-type content-type)) (unless (and (eq? (car content-type) 'application/json) (or (equal? (assoc-ref (cdr content-type) 'charset) "utf-8") |