diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-06-26 23:44:22 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-06-27 16:12:54 +0200 |
commit | f44c2cfd1824b04d85575cf7f48abf3c22a9f794 (patch) | |
tree | a3b58d7c23d82a66c317ba76a0b5d638c4decbff | |
parent | 76c7bbb608ecc6c9069a78a6ade0d07e70924ab4 (diff) |
fixup! Add an API to update server resource paths
-rw-r--r-- | src/scm/webid-oidc/server/resource/path.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/scm/webid-oidc/server/resource/path.scm b/src/scm/webid-oidc/server/resource/path.scm index 8dc2dec..f39f4b2 100644 --- a/src/scm/webid-oidc/server/resource/path.scm +++ b/src/scm/webid-oidc/server/resource/path.scm @@ -140,7 +140,9 @@ (when false (error "You’re using the API wrong.")) ;; Delete the resource - (unless (null? (contained etag)) + (unless (or (not etag) + (not (contained etag)) + (null? (contained etag))) (raise-exception (make-container-not-empty path))) (when (equal? path "/") (raise-exception (make-cannot-delete-root))) @@ -176,8 +178,6 @@ (let ((content-type (if etag (content-type etag) 'text/turtle)) (other-children (if etag (contained etag) '())) (static-content (if etag (static-content etag) (string->utf8 "")))) - (unless (eq? content-type 'text/turtle) - (raise-exception (make-not-a-container parent-path content-type))) (let ((new-etag (create content-type (cons path other-children) static-content))) (values new-etag auxiliary)))) |