cleanup of directories not always

2026-07-01 17:37:40 +02:00
parent 976403f967
commit 328371edfd
2 changed files with 6 additions and 4 deletions
@@ -479,7 +479,7 @@
                (info-am "Finished walking music library")
                ;; Cleanup files in target, not in source
                (info-am "Checking files in target, not in source")
-                (let ((fwt (make-file-walker opus-path "*" target-tree-cleaner)))
+                (let ((fwt (make-file-walker opus-path "*" target-tree-cleaner #:clean-os-name #f)))
                  (let loop1 ()
                    (let-values (((base-path path info) (fwt)))
                      (if (eq? info #f)