From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:60858) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cvo1S-000296-7D for guix-patches@gnu.org; Wed, 05 Apr 2017 12:43:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cvo1Q-0007gm-EN for guix-patches@gnu.org; Wed, 05 Apr 2017 12:43:06 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:35689) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1cvo1Q-0007gh-Bk for guix-patches@gnu.org; Wed, 05 Apr 2017 12:43:04 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1cvo1Q-0003TQ-4s for guix-patches@gnu.org; Wed, 05 Apr 2017 12:43:04 -0400 Subject: bug#26373: [PATCH 6/6] import cran: Skip updating when meta data cannot be downloaded. Resent-Message-ID: From: Ricardo Wurmus Date: Wed, 5 Apr 2017 18:42:10 +0200 Message-Id: <20170405164210.29428-6-rekado@elephly.net> In-Reply-To: <20170405164210.29428-1-rekado@elephly.net> References: <20170405164210.29428-1-rekado@elephly.net> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 26373@debbugs.gnu.org Cc: Ricardo Wurmus * gnu/packages/bioinformatics.scm (latest-cran-release, latest-bioconductor-release): Abort early when meta data cannot be downloaded. --- guix/import/cran.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/guix/import/cran.scm b/guix/import/cran.scm index 557d694ad..fc7a1ed84 100644 --- a/guix/import/cran.scm +++ b/guix/import/cran.scm @@ -398,7 +398,8 @@ dependencies." (package->upstream-name package)) (define meta - (fetch-description 'cran upstream-name)) + (false-if-exception + (fetch-description 'cran upstream-name))) (and meta (let ((version (assoc-ref meta "Version"))) @@ -415,7 +416,8 @@ dependencies." (package->upstream-name package)) (define meta - (fetch-description 'bioconductor upstream-name)) + (false-if-exception + (fetch-description 'bioconductor upstream-name))) (and meta (let ((version (assoc-ref meta "Version"))) -- 2.12.2