feat: sync-music: ignore cueprint erorrs

2024-11-07 20:27:12 -08:00 · 2024-11-07 20:27:12 -08:00 · b488540ffe
parent 5f61ca0280
commit b488540ffe
1 changed files with 2 additions and 1 deletions
--- a/sync-music/sync-music.lisp
+++ b/sync-music/sync-music.lisp
@ -31,7 +31,8 @@ Return the action if it exists, or NIL if the file should not be copied."
                                (uiop:run-program (list "cueprint"
                                                        "-d" "%N"
                                                        cue-file)
-                                                  :output :string)
+                                                  :output :string
+                                                  :ignore-error-status t)
                                :junk-allowed t)))
    (when (> cue-track-count (count-if (lambda (f)
                                         (funcall test (pathname-type f) "flac"))