diff options
-rw-r--r-- | po/disfluid.pot | 12 | ||||
-rw-r--r-- | po/fr.po | 17 | ||||
-rw-r--r-- | src/scm/webid-oidc/client/application.scm | 5 |
3 files changed, 18 insertions, 16 deletions
diff --git a/po/disfluid.pot b/po/disfluid.pot index 4249dd2..b657e6d 100644 --- a/po/disfluid.pot +++ b/po/disfluid.pot @@ -641,32 +641,32 @@ msgid "" "phrase) should be a string" msgstr "" -#: src/scm/webid-oidc/client/application.scm:472 +#: src/scm/webid-oidc/client/application.scm:473 msgid "" "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" +"string or a bytevector, or #f for responses without a content" msgstr "" -#: src/scm/webid-oidc/client/application.scm:508 +#: src/scm/webid-oidc/client/application.scm:509 msgid "" "the desired links (#:desired-links) should be an alist from URI to alists, " "the desired content-type (#:desired-content-type) should be a symbol, and " "the desired content (#:desired-content) should be a string or a bytevector" msgstr "" -#: src/scm/webid-oidc/client/application.scm:592 +#: src/scm/webid-oidc/client/application.scm:593 #, scheme-format msgid "Loading ~a..." msgstr "" -#: src/scm/webid-oidc/client/application.scm:671 +#: src/scm/webid-oidc/client/application.scm:672 #, scheme-format msgid "Updating ~a (expected ETag ~a)" msgstr "" -#: src/scm/webid-oidc/client/application.scm:718 +#: src/scm/webid-oidc/client/application.scm:719 #, scheme-format msgid "Deleting ~a (expected ETag ~a)" msgstr "" @@ -3,7 +3,7 @@ msgstr "" "Project-Id-Version: webid-oidc 0.0.0\n" "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n" "POT-Creation-Date: 2021-10-12 22:45+0200\n" -"PO-Revision-Date: 2021-10-12 22:45+0200\n" +"PO-Revision-Date: 2021-10-12 22:46+0200\n" "Last-Translator: Vivien Kraus <vivien@planete-kraus.eu>\n" "Language-Team: French <vivien@planete-kraus.eu>\n" "Language: fr\n" @@ -696,19 +696,20 @@ msgstr "" "le code d’erreur (#:code) doit être un entier et l’explication (#:reason-" "phrase) doit être une chaîne de caractères" -#: src/scm/webid-oidc/client/application.scm:472 +#: src/scm/webid-oidc/client/application.scm:473 msgid "" "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" +"string or a bytevector, or #f for responses without a content" msgstr "" "l’etag (#:etag) doit être une chaîne de caractères ou #f, les liens (#:" "links) doivent être liste de liens, le type de contenu (#:content-type) doit " "être un symbole ou une liste dont le premier élément est un symbole, et le " -"contenu (#:content) doit être une chaîne de caractères ou un vecteur d’octets" +"contenu (#:content) doit être une chaîne de caractères ou un vecteur " +"d’octets, ou #f si la réponse n’a pas de contenu" -#: src/scm/webid-oidc/client/application.scm:508 +#: src/scm/webid-oidc/client/application.scm:509 msgid "" "the desired links (#:desired-links) should be an alist from URI to alists, " "the desired content-type (#:desired-content-type) should be a symbol, and " @@ -719,17 +720,17 @@ msgstr "" "symbole, et le ccontenu désiré (#:desired-content-type) doit être unne " "chaîne de caractères ou un vecteur d’octets" -#: src/scm/webid-oidc/client/application.scm:592 +#: src/scm/webid-oidc/client/application.scm:593 #, scheme-format msgid "Loading ~a..." msgstr "Chargement de ~a…" -#: src/scm/webid-oidc/client/application.scm:671 +#: src/scm/webid-oidc/client/application.scm:672 #, scheme-format msgid "Updating ~a (expected ETag ~a)" msgstr "Mise à jour de ~a (ETag attendu ~a)" -#: src/scm/webid-oidc/client/application.scm:718 +#: src/scm/webid-oidc/client/application.scm:719 #, scheme-format msgid "Deleting ~a (expected ETag ~a)" msgstr "Suppression de ~a (ETag attendu ~a)" 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))))))) |