From 2cbef4cfeb856327bb2794963ac99730d190bead Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Thu, 11 Nov 2021 16:55:40 +0000 Subject: Gui: Explicit make from oop goops. --- src/scm/webid-oidc/client/gui/client-widget.scm | 15 ++++++++------- 1 file 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-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-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)))) -- cgit v1.2.3