diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-11 10:05:34 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-12 22:41:56 +0200 |
commit | b22d214a42ce1a9daf0e3f19784b55bdef5b5fa3 (patch) | |
tree | 1eadfd8e100786cacae28d0e474e6456adb90cd1 /src | |
parent | d2984955fb397d285897b5410d9aad3dc7f66da9 (diff) |
client: fix authorizations header to allow for no arguments
Diffstat (limited to 'src')
-rw-r--r-- | src/scm/webid-oidc/client.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/scm/webid-oidc/client.scm b/src/scm/webid-oidc/client.scm index 246731e..7af9a59 100644 --- a/src/scm/webid-oidc/client.scm +++ b/src/scm/webid-oidc/client.scm @@ -83,6 +83,8 @@ (let check-value ((schemes value)) (match schemes (() #t) + (((? symbol?) tl ...) + (check-value tl)) (((hd . args) tl ...) (and (symbol? hd) (let check-args ((args args)) |