From fc0b533002f6d76e817e545fbc996b5af79bb9ee Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 18 Sep 2020 11:39:32 +0100 Subject: Fix filtering out unset hooks --- scripts/guix-build-coordinator.in | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 72182b1..bbde886 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -408,7 +408,7 @@ processed?: ~A (build-failure . ,(assq-ref opts 'build-failure-hook)) (build-missing-inputs . ,(assq-ref opts 'build-missing-inputs-hook)))) (hooks-with-defaults - `(,@(filter identity hooks) + `(,@(filter cdr hooks) ,@(remove (match-lambda ((name . _) (assq-ref hooks name))) %default-hooks))) -- cgit v1.2.3