diff options
-rw-r--r-- | src/scm/webid-oidc/server/create.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/server/create.scm b/src/scm/webid-oidc/server/create.scm index f77cb49..b7b208d 100644 --- a/src/scm/webid-oidc/server/create.scm +++ b/src/scm/webid-oidc/server/create.scm @@ -173,11 +173,17 @@ acl:accessTo <~a>; acl:agent <~a>; acl:mode acl:Read, acl:Write, acl:Control; - acl:default <~a/>. + acl:default <~a>. " (fix-angle (uri->string root-uri)) (fix-angle (uri->string owner)) - (fix-angle (uri->string root-uri))))))))) + (fix-angle + (uri->string + (build-uri (uri-scheme root-uri) + #:userinfo (uri-userinfo root-uri) + #:host (uri-host root-uri) + #:port (uri-port root-uri) + #:path "/")))))))))) load-content-type load-contained load-static-content do-create do-delete) #t) |