summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-04-06 23:19:00 +0200
committerLudovic Courtès <ludo@gnu.org>2016-04-06 23:21:26 +0200
commit7cffaeb60473e25a7ef8c1a8cb36e1531191873a (patch)
tree7569a086b5c1da11cc10be9955d242bd4886d514 /guix/scripts
parent7b9a66e51937bf627541a437f46949f69d2f5872 (diff)
challenge: Really exit with non-zero upon hash mismatch.
Reported by John Darrington. * guix/scripts/challenge.scm (guix-challenge): Add an explicit 'exit' call when ISSUES is empty. * scripts/guix.in: Add comment about 'exit'. * doc/guix.texi (Invoking guix challenge): Mention the behavior and exit code.
Diffstat (limited to 'guix/scripts')
-rw-r--r--guix/scripts/challenge.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/scripts/challenge.scm b/guix/scripts/challenge.scm
index 4a0c865b07..0eb49da0cc 100644
--- a/guix/scripts/challenge.scm
+++ b/guix/scripts/challenge.scm
@@ -233,9 +233,11 @@ Challenge the substitutes for PACKAGE... provided by one or more servers.\n"))
(run-with-store store
(mlet* %store-monad ((items (mapm %store-monad
- ensure-store-item files))
+ ensure-store-item files))
(issues (discrepancies items urls)))
(for-each summarize-discrepancy issues)
+ (unless (null? issues)
+ (exit 1))
(return (null? issues)))
#:system system)))))))