don't use ext, so remove it

This commit is contained in:
Leo Butler 2021-04-18 06:55:32 -05:00
parent d97779eacd
commit bbb8b1a094
1 changed files with 1 additions and 1 deletions

View File

@ -284,7 +284,7 @@
(define* (ffmpeg-split+scale+transcode-recording rec #:optional (scale? #f))
(let* ((basename (recording-basename rec))
(rootname+ext (string-split basename #\.))
(rootname (car rootname+ext)) (ext (cadr rootname+ext))
(rootname (car rootname+ext))
(in-file (simple-format #f "~a/~a" recordings-directory basename))
(out-file (simple-format #f "~a/~a.~a" working-directory rootname transcoded-file-ending))
(m-d (mythtv-recorded-table->metadata rec))