summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-05-20 11:44:35 +0200
committerMathieu Othacehe <othacehe@gnu.org>2021-05-20 11:44:35 +0200
commit0471024acce5f760ac147326c06343c9c68ad3d1 (patch)
tree57ac6303c33b565c7ffd21f445905ca23ea0a580 /guix/scripts
parent7d3ad4c25639567992b5fcc5cfc12a6af42a1b68 (diff)
scripts: challenge: Fix regression.
This is a follow-up of 3cde5231aa78aa5e31b27888cd78ee0b250a7a1c that fixes the challenge test. When dealing with uncompressed NAR, the file size is false. Propagate it to progress-reporter/file as it used to be the case. * guix/scripts/challenge.scm (call-with-nar): Accept false size.
Diffstat (limited to 'guix/scripts')
-rw-r--r--guix/scripts/challenge.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/scripts/challenge.scm b/guix/scripts/challenge.scm
index 07477f816e..69c2781abb 100644
--- a/guix/scripts/challenge.scm
+++ b/guix/scripts/challenge.scm
@@ -257,7 +257,8 @@ NARINFO."
(http-fetch uri)))
(define reporter
(progress-reporter/file (narinfo-path narinfo)
- (max size (or actual-size 0)) ;defensive
+ (and size
+ (max size (or actual-size 0))) ;defensive
#:abbreviation (const (uri-host uri))))
(define result