hans/audio-library-manager
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

report copied files

Browse Source
This commit is contained in:
Hans Dijkema
2026-06-30 11:56:46 +02:00
parent 25c17b2dd4
commit 5ad15ec55d
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
audio-manager.rkt
+1
View File
@@ -303,6 +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)
(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)))))
) )