From 438e1e60af11948ce9ed6b8349eb0412517fd3f8 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Fri, 13 Aug 2021 00:35:33 +0200 Subject: Hello: the agent is an URI --- src/scm/webid-oidc/hello-world.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/scm/webid-oidc') diff --git a/src/scm/webid-oidc/hello-world.scm b/src/scm/webid-oidc/hello-world.scm index 45e0657..0451ee9 100644 --- a/src/scm/webid-oidc/hello-world.scm +++ b/src/scm/webid-oidc/hello-world.scm @@ -151,7 +151,7 @@ Options: (source . ,means-string))) (with-output-to-string (lambda () - (sxml->xml (hello-page agent))))) + (sxml->xml (hello-page (string->uri agent)))))) (values (build-response #:code 401 #:reason-phrase (W_ "reason-phrase|Unauthorized") -- cgit v1.2.3