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 | |
| parent | 7d3ad4c25639567992b5fcc5cfc12a6af42a1b68 (diff) | |
| download | guix-0471024acce5f760ac147326c06343c9c68ad3d1.tar.gz | |
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.
| -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 |