diff options
Diffstat (limited to 'src/scm/webid-oidc/client/application.scm')
| -rw-r--r-- | src/scm/webid-oidc/client/application.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/client/application.scm b/src/scm/webid-oidc/client/application.scm index 2ce286d..bde0018 100644 --- a/src/scm/webid-oidc/client/application.scm +++ b/src/scm/webid-oidc/client/application.scm @@ -27,6 +27,7 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) #:use-module (srfi srfi-19) + #:use-module (srfi srfi-26) #:use-module (webid-oidc errors) #:use-module (webid-oidc http-link) #:use-module ((webid-oidc parameters) #:prefix p:) @@ -386,7 +387,10 @@ (let do-initialize ((uri uri)) (match uri ((or (? string? (= string->uri (? uri? uri))) - (? uri? uri)) + (? uri? uri) + (? string? + (= (cute string-append "https://" <>) + (= string->uri (? uri? uri))))) (slot-set! page 'uri uri)) (else (scm-error 'wrong-type-arg "make <page-with-uri>" |