diff options
author | Mathieu Othacehe <othacehe@gnu.org> | 2021-05-20 11:44:35 +0200 |
---|---|---|
committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-05-20 11:44:35 +0200 |
commit | 0471024acce5f760ac147326c06343c9c68ad3d1 (patch) | |
tree | 57ac6303c33b565c7ffd21f445905ca23ea0a580 /guix/scripts | |
parent | 7d3ad4c25639567992b5fcc5cfc12a6af42a1b68 (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.scm | 3 |
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 |