branch master updated: scripts: challenge: Fix regression.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 0471024  scripts: challenge: Fix regression.
0471024 is described below

commit 0471024acce5f760ac147326c06343c9c68ad3d1
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Thu May 20 11:44:35 2021 +0200

    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.
---
 guix/scripts/challenge.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/challenge.scm b/guix/scripts/challenge.scm
index 07477f8..69c2781 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