diff options
Diffstat (limited to 'module/calp/server/webdav.scm')
-rw-r--r-- | module/calp/server/webdav.scm | 28 |
1 files changed, 13 insertions, 15 deletions
diff --git a/module/calp/server/webdav.scm b/module/calp/server/webdav.scm index 97d5c56d..8d96b228 100644 --- a/module/calp/server/webdav.scm +++ b/module/calp/server/webdav.scm @@ -414,21 +414,19 @@ headers: '((content-type . (text/plain)))) "One or more parent components of destination are missing"))))) - (let ((copy (copy-resource source-resource - (case depth - ((0) #f) - ((infinity) #t) - (else (throw 'invalid-request))) - dest-name))) - (case (add-child! destination-parent-resource - copy - overwrite?) - ((created) - (values (build-response code: 201) "")) - ((replaced) - (values (build-response code: 204) "")) - ((collision) - (values (build-response code: 412) "")))))))))) + (case (copy-to-location! source-resource destination-parent-resource + new-name: dest-name + include-children?: (case depth + ((0) #f) + ((infinity) #t) + (else (throw 'invalid-requeqst))) + overwrite?: overwrite?) + ((created) + (values (build-response code: 201) "")) + ((replaced) + (values (build-response code: 204) "")) + ((collision) + (values (build-response code: 412) ""))))))))) (define (run-delete href request) |