From 70befab4002c5d54745879685e691fff7d222816 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Mon, 11 Oct 2021 21:01:21 +0200 Subject: client: infer the https:// URI scheme if it’s missing MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/scm/webid-oidc/client/application.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/scm/webid-oidc') 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 " -- cgit v1.2.3