futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

import: cpan: Move core-module? to top-level.

Browse Source 
* guix/import/cpan.scm (cpan-module->sexp): Move local core-module?
procedure to ...
(core-module?): ... here.
This commit is contained in:
Eric Bavier 2016-12-12 21:57:09 -06:00
parent 63773200d7
commit d391ad57d6
No known key found for this signature in database
GPG Key ID: 1EBBD204781F962C
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
guix/import/cpan.scm
View File

@ -116,22 +116,6 @@ if the original's domain was metacpan."
(and (access? core X_OK)
core))))
(define (cpan-module->sexp meta)
"Return the `package' s-expression for a CPAN module from the metadata in
META."
(define name
(assoc-ref meta "distribution"))
(define (guix-name name)
(if (string-prefix? "perl-" name)
(string-downcase name)
(string-append "perl-" (string-downcase name))))
(define version
(match (assoc-ref meta "version")
((? number? vrs) (number->string vrs))
((? string? vrs) vrs)))
(define core-module?
(let ((perl-version (package-version perl))
(rx (make-regexp
@ -157,6 +141,22 @@ META."
first perl-version last))))
(loop)))))))))))
(define (cpan-module->sexp meta)
"Return the `package' s-expression for a CPAN module from the metadata in
META."
(define name
(assoc-ref meta "distribution"))
(define (guix-name name)
(if (string-prefix? "perl-" name)
(string-downcase name)
(string-append "perl-" (string-downcase name))))
(define version
(match (assoc-ref meta "version")
((? number? vrs) (number->string vrs))
((? string? vrs) vrs)))
(define (convert-inputs phases)
;; Convert phase dependencies into a list of name/variable pairs.
(match (flatten