From bf0a443e50c113cf759ec3e9ca898a3f10abd7ba Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Sun, 10 Oct 2021 20:25:45 +0200 Subject: client: allow #f for an etag value --- src/scm/webid-oidc/client/application.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/scm/webid-oidc/client/application.scm') diff --git a/src/scm/webid-oidc/client/application.scm b/src/scm/webid-oidc/client/application.scm index 172866b..e2bb4b6 100644 --- a/src/scm/webid-oidc/client/application.scm +++ b/src/scm/webid-oidc/client/application.scm @@ -452,7 +452,8 @@ (content-type content-type) (content content)) (match `(,etag ,links ,content-type ,content) - (((? string? etag) + (((or (? not etag) + (? string? etag)) (? all-links? links) (? symbol? content-type) (or (? string? content) @@ -463,7 +464,7 @@ (slot-set! page 'content content)) (else (scm-error 'wrong-type-arg "make " - (G_ "the etag (#:etag) should be a string, 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, and the content (#:content) should be a string or a bytevector") '() (list etag links content-type content))))))) -- cgit v1.2.3