diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-12 11:34:19 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-12 22:47:10 +0200 |
| commit | ffe480e3de3713bac92079a173bc7e2ef48799bb (patch) | |
| tree | 654d557f8771037738d9df52d141d5fa5a3eabec /src | |
| parent | 44426c584f6d2bb10be538a6faf2bd2c63a0ad60 (diff) | |
client: allow responses without a content
Diffstat (limited to 'src')
| -rw-r--r-- | src/scm/webid-oidc/client/application.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/client/application.scm b/src/scm/webid-oidc/client/application.scm index bde0018..863cae9 100644 --- a/src/scm/webid-oidc/client/application.scm +++ b/src/scm/webid-oidc/client/application.scm @@ -462,14 +462,15 @@ (or (? symbol? content-type) ((? symbol? content-type) _ ...)) (or (? string? content) - (? bytevector? content))) + (? bytevector? content) + (? not content))) (slot-set! page 'etag etag) (slot-set! page 'links links) (slot-set! page 'content-type content-type) (slot-set! page 'content content)) (else (scm-error 'wrong-type-arg "make <error-page>" - (G_ "the etag (#:etag) should be a string or #f, the links (#:links) should be a list of links, the content-type (#:content-type) should be a symbol or a list whose first item is a symbol, and the content (#:content) should be a string or a bytevector") + (G_ "the etag (#:etag) should be a string or #f, the links (#:links) should be a list of links, the content-type (#:content-type) should be a symbol or a list whose first item is a symbol, and the content (#:content) should be a string or a bytevector, or #f for responses without a content") '() (list etag links content-type content))))))) |