diff options
| author | Eric Bavier <bavier@member.fsf.org> | 2015-02-13 21:34:40 -0600 |
|---|---|---|
| committer | Eric Bavier <bavier@member.fsf.org> | 2015-02-18 23:53:46 -0600 |
| commit | a0c2c4b45bb9c7b77f2b9a1562e791f1124cf93c (patch) | |
| tree | 85f43958c85a065baf537bc5b37f35b195ef0610 | |
| parent | 2491d58962b67c7397147a75a005e78ba6312ec4 (diff) | |
| download | guix-a0c2c4b45bb9c7b77f2b9a1562e791f1124cf93c.tar guix-a0c2c4b45bb9c7b77f2b9a1562e791f1124cf93c.tar.gz | |
import: cpan: Sort inputs.
* guix/import/cpan.scm (cpan-module->sexp)[convert-inputs]: Sort returned list
of inputs.
| -rw-r--r-- | guix/import/cpan.scm | 27 |
1 files changed, 16 insertions, 11 deletions
diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm index 307681b6ce..bd48c44b1a 100644 --- a/guix/import/cpan.scm +++ b/guix/import/cpan.scm @@ -141,17 +141,22 @@ META." (#f '()) ((inputs ...) - (delete-duplicates - ;; Listed dependencies may include core modules. Filter those out. - (filter-map (match-lambda - (("perl" . _) ;implicit dependency - #f) - ((module . _) - (and (not (core-module? module)) - (let ((name (guix-name (module->dist-name module)))) - (list name - (list 'unquote (string->symbol name))))))) - inputs))))) + (sort + (delete-duplicates + ;; Listed dependencies may include core modules. Filter those out. + (filter-map (match-lambda + (("perl" . _) ;implicit dependency + #f) + ((module . _) + (and (not (core-module? module)) + (let ((name (guix-name (module->dist-name module)))) + (list name + (list 'unquote (string->symbol name))))))) + inputs)) + (lambda args + (match args + (((a _ ...) (b _ ...)) + (string<? a b)))))))) (define (maybe-inputs guix-name inputs) (match inputs |