diff options
Diffstat (limited to 'src/scm/webid-oidc/client.scm')
-rw-r--r-- | src/scm/webid-oidc/client.scm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/scm/webid-oidc/client.scm b/src/scm/webid-oidc/client.scm index 30cbc75..83bca37 100644 --- a/src/scm/webid-oidc/client.scm +++ b/src/scm/webid-oidc/client.scm @@ -522,19 +522,17 @@ (set! client-uri (string->uri client-uri))) (let* ((manifest (format #f - "@prefix solid: <http://www.w3.org/ns/solid/terms#> . - -<~a> solid:oidcRegistration \"\"\"{ + "{ + \"@context\": \"https://www.w3.org/ns/solid/oidc-context.jsonld\", \"client_id\" : \"~a\", \"redirect_uris\" : [\"~a\"], \"client_name\" : \"~a\", \"client_uri\" : \"~a\", \"grant_types\" : [\"refresh_token\", \"authorization_code\"], \"response_types\" : [\"code\"] -}\"\"\" . +} " (uri->string id) - (uri->string id) (uri->string redirect-uri) client-name (uri->string id))) @@ -551,12 +549,12 @@ (build-response #:code 304 #:reason-phrase "Not Modified" - #:headers `((content-type text/turtle) + #:headers `((content-type application/ld+json) (etag . (,manifest-etag . #t)))) #f) (values (build-response - #:headers `((content-type text/turtle) + #:headers `((content-type application/ld+json) (etag . (,manifest-etag . #t)) (cache-control public must-revalidate))) manifest)))) |