report copies"
This commit is contained in:
+1
-1
@@ -303,7 +303,7 @@
|
|||||||
(let ((dest-path (build-path opus-path path-part)))
|
(let ((dest-path (build-path opus-path path-part)))
|
||||||
(unless (directory-exists? (basedir dest-path))
|
(unless (directory-exists? (basedir dest-path))
|
||||||
(make-directory* (basedir dest-path)))
|
(make-directory* (basedir dest-path)))
|
||||||
(rep-opus "Copying: ~a" path-part)
|
(rep-opus (format "Copying: ~a" path-part))
|
||||||
(copy-file path dest-path #:exists-ok? #t)
|
(copy-file path dest-path #:exists-ok? #t)
|
||||||
(set! copied-files (+ copied-files 1)))))
|
(set! copied-files (+ copied-files 1)))))
|
||||||
)
|
)
|
||||||
|
|||||||
Reference in New Issue
Block a user