From ae6fa00af02399e2ffadccc81bd7718cc7c26f10 Mon Sep 17 00:00:00 2001
From: Oleg Pykhalov <go.wigust@gmail.com>
Date: Sat, 30 Jun 2018 10:51:45 +0300
Subject: [PATCH] import: elpa: Check if 'fetch-elpa-package' rest argument is
null.
* guix/import/elpa.scm (fetch-elpa-package): Check if 'rest' is null.
---
guix/import/elpa.scm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/guix/import/elpa.scm b/guix/import/elpa.scm
index 65e0be45aba..c37afaf8e69 100644
--- a/guix/import/elpa.scm
+++ b/guix/import/elpa.scm
@@ -187,7 +187,9 @@ (define* (fetch-elpa-package name #:optional (repo 'gnu))
(url (package-source-url kind name ver repo)))
(make-elpa-package name ver
(ensure-list reqs) synopsis kind
- (package-home-page (first rest))
+ (package-home-page (match rest
+ (() #f)
+ ((one) one)))
(fetch-package-description kind name repo)
url)))
(_ #f))))
--
GitLab