diff options
| author | Oleg Pykhalov <go.wigust@gmail.com> | 2018-06-30 10:51:45 +0300 |
|---|---|---|
| committer | Oleg Pykhalov <go.wigust@gmail.com> | 2018-07-03 07:19:13 +0300 |
| commit | ae6fa00af02399e2ffadccc81bd7718cc7c26f10 (patch) | |
| tree | 2f54282be57666117b6e5b9a89064d8efc88e70f | |
| parent | 3a15d0aa9c55881ddc3a21570350a743c28a6c92 (diff) | |
import: elpa: Check if 'fetch-elpa-package' rest argument is null.
* guix/import/elpa.scm (fetch-elpa-package): Check if 'rest' is null.
| -rw-r--r-- | guix/import/elpa.scm | 4 |
1 files changed, 3 insertions, 1 deletions
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 @@ include VERSION." | |||
| 187 | (url (package-source-url kind name ver repo))) | 187 | (url (package-source-url kind name ver repo))) |
| 188 | (make-elpa-package name ver | 188 | (make-elpa-package name ver |
| 189 | (ensure-list reqs) synopsis kind | 189 | (ensure-list reqs) synopsis kind |
| 190 | (package-home-page (first rest)) | 190 | (package-home-page (match rest |
| 191 | (() #f) | ||
| 192 | ((one) one))) | ||
| 191 | (fetch-package-description kind name repo) | 193 | (fetch-package-description kind name repo) |
| 192 | url))) | 194 | url))) |
| 193 | (_ #f)))) | 195 | (_ #f)))) |
