~ruther/guix-local

be036757bdd0819aa16ea386a7283d6bf315cad4 — Ricardo Wurmus 10 years ago 0cb5bc2
import: Drop empty list items.

* guix/import/cran.scm (listify): Remove empty strings from result list.
1 files changed, 6 insertions(+), 3 deletions(-)

M guix/import/cran.scm
M guix/import/cran.scm => guix/import/cran.scm +6 -3
@@ 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)