From fd8ff1ab1eaed996c57505b5de84447ea7831e1f Mon Sep 17 00:00:00 2001 From: Hans Dijkema Date: Thu, 25 Jun 2026 22:06:30 +0200 Subject: [PATCH] deleted counted right --- audio-manager.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/audio-manager.rkt b/audio-manager.rkt index 72b8a14..b318a6f 100644 --- a/audio-manager.rkt +++ b/audio-manager.rkt @@ -207,6 +207,7 @@ #".opus"))) (set! processed-opus (+ processed-opus 1)) (unless (file-exists? opus-file) + (info-am "Converting flac to opus: ~a" opus-file) (rep-opus (format "Converting flac to opus: ~a" (basename opus-file))) (with-handlers ([exn? (λ (e) @@ -252,7 +253,6 @@ (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))