summaryrefslogtreecommitdiff
path: root/src/scm/webid-oidc/authorization-page-unsafe.scm
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2021-05-18 00:03:05 +0200
committerVivien Kraus <vivien@planete-kraus.eu>2021-05-18 00:49:21 +0200
commitb46733f52528b0bac38942605f27715002b80d57 (patch)
tree801b4a4b5bf97cfc6a927834ca4942d01a25df88 /src/scm/webid-oidc/authorization-page-unsafe.scm
parent19850f4cbf99019b78df63f9acd6801f4f41ffdc (diff)
fixup! Define the web pages for the authorization endpoint0.4.9
Diffstat (limited to 'src/scm/webid-oidc/authorization-page-unsafe.scm')
-rw-r--r--src/scm/webid-oidc/authorization-page-unsafe.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/authorization-page-unsafe.scm b/src/scm/webid-oidc/authorization-page-unsafe.scm
index e3370a9..f969caf 100644
--- a/src/scm/webid-oidc/authorization-page-unsafe.scm
+++ b/src/scm/webid-oidc/authorization-page-unsafe.scm
@@ -111,7 +111,8 @@
(if value
(format #f (G_ "the header ~a should not have the value ~s.\n")
(get 'header) value)
- (format #f (G_ "the header ~a should be present.")))))))
+ (format #f (G_ "the header ~a should be present.")
+ (get 'header)))))))
((&unexpected-response)
(cons
`(li ,(format #f (G_ "the server response wasn’t expected:"))