diff options
Diffstat (limited to 'src')
| -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)))) |