From 5453de3dd88f28d5b3e7cff96df2c583e57bb23b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 4 Nov 2015 23:54:12 +0100
Subject: [PATCH] import: hackage: Fix invalid use of 'leave'.
Reported by Paul van der Walt <paul@denknerd.org>
in <http://bugs.gnu.org/21829>.
* guix/scripts/import/hackage.scm (guix-import-hackage): Add missing
argument in call to 'leave'.
---
guix/scripts/import/hackage.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/guix/scripts/import/hackage.scm b/guix/scripts/import/hackage.scm
index 8c4e640bf37..97d042be3e9 100644
--- a/guix/scripts/import/hackage.scm
+++ b/guix/scripts/import/hackage.scm
@@ -134,9 +134,9 @@ (define (run-importer package-name opts error-fn)
((package-name)
(run-importer package-name opts
(lambda ()
- (leave
- (_ "failed to download cabal file for package '~a'~%"))
- package-name)))
+ (leave (_ "failed to download cabal file \
+for package '~a'~%")
+ package-name))))
(()
(leave (_ "too few arguments~%")))
((many ...)
--
GitLab