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

Deleted files counted

Browse Source
This commit is contained in:
Hans Dijkema
2026-06-25 21:57:02 +02:00
parent 7a742fcda9
commit f63c902d4d
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
@@ -252,6 +252,7 @@
(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))