From f63c902d4da7849f82f229595e4bfe956b5b2f93 Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Thu, 25 Jun 2026 21:57:02 +0200 Subject: [PATCH] Deleted files counted --- audio-manager.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/audio-manager.rkt b/audio-manager.rkt index 2f04047..72b8a14 100644 --- a/audio-manager.rkt +++ b/audio-manager.rkt @@ -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))