From 26b9fa6f325eb249d6c28c1a8e2786f058743712 Mon Sep 17 00:00:00 2001 From: hans Date: Tue, 30 Jun 2026 12:44:14 +0200 Subject: [PATCH] last commit was wrongly placed --- audio-manager.rkt | 5 +++++ private/file-walker.rkt | 7 ++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/audio-manager.rkt b/audio-manager.rkt index 7956533..9668ff9 100644 --- a/audio-manager.rkt +++ b/audio-manager.rkt @@ -358,6 +358,11 @@ (define (log-processed-file base-path path info) (dbg-am "processing ~a" path) + + (let ((re #px"Willi Bos")) + (when (regexp-match re (path->string path)) + (info-am "Hey: ~a - ~a" (basename path) info))) + (if (eq? (hash-ref info 'type) 'dir) (set! processed-dirs (+ processed-dirs 1)) (begin diff --git a/private/file-walker.rkt b/private/file-walker.rkt index 19ba76d..8aab1b2 100644 --- a/private/file-walker.rkt +++ b/private/file-walker.rkt @@ -142,7 +142,7 @@ (let ((perc (quotient (* k 100) count))) (when (and (= (remainder perc 10) 0) (> perc last-perc)) (set! last-perc perc) - (info-am "get-deleteed: ~a%" perc))) + (info-am "get-deleted: ~a%" perc))) (let ((v (store-ref db-store key))) (eq? (hash-ref v 'file-db) 'unknown))) keys)))) @@ -166,8 +166,6 @@ ) (set! walker-count (+ walker-count 1)) (let-values (((base-path* path* info*) (file-admin base-path path info))) - (when (eq? info* #f) - (store-commit db-store)) (values base-path* path* info*))))) (deleted #f)) (init-db-sweep) @@ -182,7 +180,10 @@ (let-values (((base-path path info) (fw))) (if (eq? info #f) (begin + (info-am "LAST COMMIT") + (store-commit db-store) (set! deleted (get-deleted)) + (info-am "Got ~a deleted entries" (length deleted)) (f)) (values base-path path info)) )