Reset file info for administrating changes, to prevent audio manager processing files twice that are essentially unchanged.
This commit is contained in:
+3
-4
@@ -192,8 +192,7 @@
|
||||
(if (convert-flac-to-rate path base-rate)
|
||||
(begin
|
||||
(hash-set! info 'khz base-rate)
|
||||
(hash-set! info 'size (file-size path))
|
||||
(hash-set! info 'mtime (file-or-directory-modify-seconds path))
|
||||
(reset-file-admin-info path info)
|
||||
)
|
||||
(begin
|
||||
(err-am " Cannot convert!")
|
||||
@@ -225,8 +224,7 @@
|
||||
(tags-picture! tags cover)
|
||||
(tags-save! tags))
|
||||
#:mode 'read-write))
|
||||
(hash-set! info 'size (file-size path))
|
||||
(hash-set! info 'mtime (file-or-directory-modify-seconds path))
|
||||
(reset-file-admin-info path info)
|
||||
(info-am " Picture set")
|
||||
(set! pictures-set (+ pictures-set 1))
|
||||
)
|
||||
@@ -273,6 +271,7 @@
|
||||
(if (convert-to-opus path opus-file ini)
|
||||
(begin
|
||||
(set! converted-files (+ converted-files 1))
|
||||
(reset-file-admin-info path info)
|
||||
(info-am " Converted ~a, job-nr = ~a" converted-files jobnr)
|
||||
)
|
||||
(begin
|
||||
|
||||
Reference in New Issue
Block a user