Deleted files counted

2026-06-25 21:57:02 +02:00
parent 7a742fcda9
commit f63c902d4d
1 changed files with 1 additions and 0 deletions
@@ -252,6 +252,7 @@
        (let ((path-part (get-path-part info)))
          (unless (eq? path-part #f)
            (let ((rm-path (build-path opus-path path-part)))
+              (set! deleted-files (+ deleted-files 1))
              (delete-directory/files rm-path #:must-exist? #f)
              (let ((normalized-sub-path (hash-ref info 'path)))
                (hash-remove! file-db-hash normalized-sub-path))