diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-11-11 16:55:40 +0000 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-11-11 16:58:17 +0000 |
commit | 2cbef4cfeb856327bb2794963ac99730d190bead (patch) | |
tree | 23b338e64844a81b5391a53673581f6d545fe32f | |
parent | d483301708d8b0fcf83ff1fd28e94ab08513f55a (diff) |
Gui: Explicit make from oop goops.
-rw-r--r-- | src/scm/webid-oidc/client/gui/client-widget.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/scm/webid-oidc/client/gui/client-widget.scm b/src/scm/webid-oidc/client/gui/client-widget.scm index b4b58aa..1451c34 100644 --- a/src/scm/webid-oidc/client/gui/client-widget.scm +++ b/src/scm/webid-oidc/client/gui/client-widget.scm @@ -96,13 +96,14 @@ (connect update-button clicked (lambda _ (disable) - (let ((new-client (make <client> - #:client-id (entry:get-text client-id-entry) - #:redirect-uri (entry:get-text redirect-uri-entry) - #:key-pair - (jwk:jwk->key - (stubs:json-string->scm - (entry:get-text key-pair-entry)))))) + (let ((new-client + ((@ (oop goops) make) <client> + #:client-id (entry:get-text client-id-entry) + #:redirect-uri (entry:get-text redirect-uri-entry) + #:key-pair + (jwk:jwk->key + (stubs:json-string->scm + (entry:get-text key-pair-entry)))))) (settings:application-state (set-client (settings:application-state) new-client))))) (values builder whole-widget)))) |