diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-04-06 23:19:00 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-04-06 23:21:26 +0200 |
| commit | 7cffaeb60473e25a7ef8c1a8cb36e1531191873a (patch) | |
| tree | 7569a086b5c1da11cc10be9955d242bd4886d514 /guix/scripts | |
| parent | 7b9a66e51937bf627541a437f46949f69d2f5872 (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.scm | 4 |
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))))))) |