setup: fail on failing command

This commit is contained in:
LordMZTE 2023-05-27 21:51:04 +02:00
parent 33727e27aa
commit a87b656cca
Signed by: LordMZTE
GPG key ID: B64802DC33A64FF6

View file

@ -29,7 +29,10 @@
(display-function-call (quote name) args)
(apply func args)))
(define-logging cmd (λ (exe . args) (apply system* (find-executable-path exe) args)))
(define-logging cmd
(λ (exe . args)
(unless (apply system* (find-executable-path exe) args)
(raise-user-error "Command Failed"))))
(define-logging rm delete-directory/files)
(define-logging copy copy-directory/files)