diff options
Diffstat (limited to 'src/scm/webid-oidc/client/gui/client-widget.scm')
| -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)))) |