scripts: challenge: Fix regression.

This is a follow-up of 3cde5231aa 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.
This commit is contained in:
Mathieu Othacehe 2021-05-20 11:44:35 +02:00
parent 7d3ad4c256
commit 0471024acc
No known key found for this signature in database
GPG key ID: 8354763531769CA6

View file

@ -257,7 +257,8 @@ (define (call-with-nar narinfo proc)
(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