diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-11 21:01:21 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-12 22:43:03 +0200 |
commit | 70befab4002c5d54745879685e691fff7d222816 (patch) | |
tree | a9bc7ef5196ebb69af60170dec493eedd6b4de50 /src | |
parent | 81081d1fbf71edb72465b9be12cf3b29eaa77767 (diff) |
client: infer the https:// URI scheme if it’s missing
Diffstat (limited to 'src')
-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>" |