diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-09 18:46:48 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-13 01:06:38 +0200 |
commit | ded10e28782f289ad3db15320bcf619ab4336876 (patch) | |
tree | 32609fd9f1eb0d2f8a23105e09f193827d16a275 /src/scm/webid-oidc/client.scm | |
parent | 7b62790238902e10edb83c07286cf0643b097997 (diff) |
Switch to a more sensible error reporting system
Diffstat (limited to 'src/scm/webid-oidc/client.scm')
-rw-r--r-- | src/scm/webid-oidc/client.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/client.scm b/src/scm/webid-oidc/client.scm index 4fdb824..f469d19 100644 --- a/src/scm/webid-oidc/client.scm +++ b/src/scm/webid-oidc/client.scm @@ -57,6 +57,9 @@ ) #:declarative? #t) +;; Better for syntax highlighting +(define <client:account> client:<account>) + (define-record-type <client> (make-client id key redirect-uri) client? @@ -124,7 +127,7 @@ #:client-id client-id #:client-key client-key #:redirect-uri redirect-uri))) - (($ <account> subject issuer _ _ _ _) + ((($ <client:account> subject issuer _ _ _ _)) (client:save-account (client:login subject issuer #:http-get my-http-get |