diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-10 20:52:55 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-12 22:40:17 +0200 |
commit | d2984955fb397d285897b5410d9aad3dc7f66da9 (patch) | |
tree | 34e091d167b133957cd92588813c358bb3ba13c3 /src | |
parent | bf0a443e50c113cf759ec3e9ca898a3f10abd7ba (diff) |
client: allow content-type parameters to initialize a page
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 e2bb4b6..2ce286d 100644 --- a/src/scm/webid-oidc/client/application.scm +++ b/src/scm/webid-oidc/client/application.scm @@ -455,7 +455,8 @@ (((or (? not etag) (? string? etag)) (? all-links? links) - (? symbol? content-type) + (or (? symbol? content-type) + ((? symbol? content-type) _ ...)) (or (? string? content) (? bytevector? content))) (slot-set! page 'etag etag) @@ -464,7 +465,7 @@ (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, 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") '() (list etag links content-type content))))))) |