From: Mathieu Othacehe <othacehe@gnu.org>
Date: Thu, 20 May 2021 09:44:35 +0000 (+0200)
Subject: scripts: challenge: Fix regression.
X-Git-Url: http://git.hcoop.net/jackhill/guix/guix.git/commitdiff_plain/0471024acce5f760ac147326c06343c9c68ad3d1

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.
---

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