diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-10 11:40:26 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-12 22:29:14 +0200 |
commit | bf0b0eb342f6b36df5abd0fa02d40febdd66cdf5 (patch) | |
tree | 57b25d29e305e1a2ebb6b2d57994d09418495889 | |
parent | 3ba93ce1fccbc54d4695d55011ce856018c1b2cd (diff) |
client: allow a simple string as the new page URI in set-page-uri
-rw-r--r-- | src/scm/webid-oidc/client/application.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/scm/webid-oidc/client/application.scm b/src/scm/webid-oidc/client/application.scm index 58d1dad..bbc39fb 100644 --- a/src/scm/webid-oidc/client/application.scm +++ b/src/scm/webid-oidc/client/application.scm @@ -483,14 +483,14 @@ (slot-set! ret 'page (add-link (page ret) (string->uri target) key value)) ret)) -(define-method (set-page-uri (state <application-state>) uri) +(define-method (set-page-uri (state <application-state>) page-uri) (let ((ret (shallow-clone state)) (new-page (make <loading-page> - #:uri uri))) + #:uri page-uri))) (slot-set! ret 'page new-page) (add-job ret - (format #f (G_ "Loading ~a...") (uri->string uri)) + (format #f (G_ "Loading ~a...") (uri->string (uri new-page))) (lambda () (declare-link-header!) (let ((account (main-account state)) @@ -509,7 +509,7 @@ (slot-set! ret 'page (if (eqv? (response-code response) 200) (make <loaded-page> - #:uri uri + #:uri (uri new-page) #:etag (match (response-etag response) ((value . #f) value) @@ -522,7 +522,7 @@ (or (false-if-exception (bytevector->string response-body)) response-body)) (make <error-page> - #:uri uri + #:uri (uri new-page) #:code (response-code response) #:reason-phrase (response-reason-phrase response))))) ret))))))))) |