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

deleted counted right

Browse Source
This commit is contained in:
Hans Dijkema
2026-06-25 22:06:30 +02:00
parent f63c902d4d
commit fd8ff1ab1e
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
audio-manager.rkt
+1 -1
View File
@@ -207,6 +207,7 @@
#".opus"))) #".opus")))
(set! processed-opus (+ processed-opus 1)) (set! processed-opus (+ processed-opus 1))
(unless (file-exists? opus-file) (unless (file-exists? opus-file)
(info-am "Converting flac to opus: ~a" opus-file)
(rep-opus (rep-opus
(format "Converting flac to opus: ~a" (basename opus-file))) (format "Converting flac to opus: ~a" (basename opus-file)))
(with-handlers ([exn? (λ (e) (with-handlers ([exn? (λ (e)
@@ -252,7 +253,6 @@
(let ((path-part (get-path-part info))) (let ((path-part (get-path-part info)))
(unless (eq? path-part #f) (unless (eq? path-part #f)
(let ((rm-path (build-path opus-path path-part))) (let ((rm-path (build-path opus-path path-part)))
(set! deleted-files (+ deleted-files 1))
(delete-directory/files rm-path #:must-exist? #f) (delete-directory/files rm-path #:must-exist? #f)
(let ((normalized-sub-path (hash-ref info 'path))) (let ((normalized-sub-path (hash-ref info 'path)))
(hash-remove! file-db-hash normalized-sub-path)) (hash-remove! file-db-hash normalized-sub-path))