diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-12 22:06:16 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-13 01:06:38 +0200 |
| commit | 5d9420cef03b8395a7b5120366f69f7848bdbf2d (patch) | |
| tree | ea231b84ffbc1dbfb3df15c98bf5752e1fbb8189 /src | |
| parent | 27b11fa7e4b5f28ab53be387ba0b69152922fe44 (diff) | |
Fix reason phrases for the authorization pages
Diffstat (limited to 'src')
| -rw-r--r-- | src/scm/webid-oidc/authorization-page-unsafe.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/authorization-page-unsafe.scm b/src/scm/webid-oidc/authorization-page-unsafe.scm index a6f5c3b..640ad53 100644 --- a/src/scm/webid-oidc/authorization-page-unsafe.scm +++ b/src/scm/webid-oidc/authorization-page-unsafe.scm @@ -92,7 +92,7 @@ (define (bad-request . body) (values (build-response #:code 400 - #:reason-phrase "Bad Request" + #:reason-phrase (W_ "reason-phrase|Bad Request") #:headers '((content-type application/xhtml+xml))) (apply make-page (W_ "Bad request") body))) @@ -123,7 +123,7 @@ (define (redirection client-id uri) (values (build-response - #:code 302 + #:code 302 #:reason-phrase (W_ "reason-phrase|Found") #:headers `((location . ,uri) (content-type application/xhtml+xml))) (make-page |