From 63b6118cf488072cf2c106fc8d1557eb06255fc3 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Mon, 13 Nov 2023 08:41:33 -0500 Subject: publisher: Throw an error on non-zero exit status in run-command. --- haunt/publisher.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/haunt/publisher.scm b/haunt/publisher.scm index b9dcf38..e62a39c 100644 --- a/haunt/publisher.scm +++ b/haunt/publisher.scm @@ -49,4 +49,7 @@ ((publisher-proc publisher) site)) (define (run-command program . args) - (zero? (apply system* program args))) + (let ((status (apply system* program args))) + (unless (zero? status) + (error "program exited with non-zero status" + (status:exit-val status) program args)))) -- cgit v1.2.3