diff options
Diffstat (limited to 'src/scm/webid-oidc/simulation.scm')
| -rw-r--r-- | src/scm/webid-oidc/simulation.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/simulation.scm b/src/scm/webid-oidc/simulation.scm index 45fb1f3..30f7b43 100644 --- a/src/scm/webid-oidc/simulation.scm +++ b/src/scm/webid-oidc/simulation.scm @@ -18,6 +18,8 @@ #:use-module ((webid-oidc client) #:prefix client:) #:use-module (webid-oidc identity-provider) #:use-module (webid-oidc resource-server) + #:use-module (webid-oidc web-i18n) + #:use-module (webid-oidc errors) #:use-module ((webid-oidc parameters) #:prefix p:) #:use-module ((webid-oidc server create) #:prefix server:) #:use-module (web uri) @@ -125,7 +127,9 @@ (response-location response) (uri-query (response-location response)) (string-prefix? "code=" (uri-query (response-location response)))) - (error "Invalid credentials.\n")) + (fail (format #f (G_ "invalid credentials: response ~s ~s") + (response-code response) + (response-reason-phrase response)))) (let* ((uri (response-location response)) (query (uri-query uri)) (code (substring query (string-length "code=")))) |