summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVivien Kraus <vivien@planete-kraus.eu>2021-11-11 16:55:40 +0000
committerVivien Kraus <vivien@planete-kraus.eu>2021-11-11 16:58:17 +0000
commit2cbef4cfeb856327bb2794963ac99730d190bead (patch)
tree23b338e64844a81b5391a53673581f6d545fe32f
parentd483301708d8b0fcf83ff1fd28e94ab08513f55a (diff)
Gui: Explicit make from oop goops.
-rw-r--r--src/scm/webid-oidc/client/gui/client-widget.scm15
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))))