diff --git a/sync-music/actions.lisp b/sync-music/actions.lisp index a61288d..af3e343 100644 --- a/sync-music/actions.lisp +++ b/sync-music/actions.lisp @@ -59,8 +59,8 @@ Pushes status message about this action to QUEUE if given.")) :element-type 'octet) (setf buf (make-array (file-length input) :element-type 'octet)) (read-sequence buf input)) - (setf buf (replace-text-buffer buf ".flac" ".opus")) - (setf buf (replace-text-buffer buf ".wav" ".opus")) + (setf buf (replace-text-buffer buf ".flac\"" ".opus\"")) + (setf buf (replace-text-buffer buf ".wav\"" ".opus\"")) (with-open-file (output (action-target a) :element-type 'octet