summaryrefslogtreecommitdiff
path: root/guix/import
diff options
context:
space:
mode:
authorRicardo Wurmus <ricardo.wurmus@mdc-berlin.de>2015-12-16 14:29:38 +0100
committerRicardo Wurmus <ricardo.wurmus@mdc-berlin.de>2015-12-21 15:24:54 +0100
commitbe036757bdd0819aa16ea386a7283d6bf315cad4 (patch)
tree8300b6435dcbb02087d91c0752de6419c253f9d5 /guix/import
parent0cb5bc2cffbc176afa55a116730f81f5afc2dde5 (diff)
import: Drop empty list items.
* guix/import/cran.scm (listify): Remove empty strings from result list.
Diffstat (limited to 'guix/import')
-rw-r--r--guix/import/cran.scm9
1 files changed, 6 insertions, 3 deletions
diff --git a/guix/import/cran.scm b/guix/import/cran.scm
index 845ecb5832..45c679cbe2 100644
--- a/guix/import/cran.scm
+++ b/guix/import/cran.scm
@@ -128,9 +128,12 @@ empty list when the FIELD cannot be found."
#f "( *\\([^\\)]+\\)) *"
value 'pre 'post)
#\,)))
- ;; When there is whitespace inside of items it is probably because
- ;; this was not an actual list to begin with.
- (remove (cut string-any char-set:whitespace <>)
+ (remove (lambda (item)
+ (or (string-null? item)
+ ;; When there is whitespace inside of items it is
+ ;; probably because this was not an actual list to
+ ;; begin with.
+ (string-any char-set:whitespace item)))
(map string-trim-both items))))))
(define (beautify-description description)