me
/
guix
Archived
1
0
Fork 0
Code

guix: maven: Support fixing extensions. 

* guix/build/maven/pom.scm (fix-pom-dependencies): Add support for fixing
extension versions.
master
Julien Lepiller 2021-06-01 00:44:17 +02:00
parent 6ec2109ab6
commit 9711970c99
No known key found for this signature in database
GPG Key ID: 53D457B2D636EE82
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
guix/build/maven/pom.scm
View File

@ -374,8 +374,27 @@ Returns nothing, but overrides the @var{pom-file} as a side-effect."
`((http://maven.apache.org/POM/4.0.0:plugins `((http://maven.apache.org/POM/4.0.0:plugins
,(fix-plugins plugins)) ,(fix-plugins plugins))
,@(fix-build rest))) ,@(fix-build rest)))
(('http://maven.apache.org/POM/4.0.0:extensions extensions ...)
`((http://maven.apache.org/POM/4.0.0:extensions
,(fix-extensions extensions))
,@(fix-build rest)))
(tag (cons tag (fix-build rest))))))) (tag (cons tag (fix-build rest)))))))
(define* (fix-extensions extensions #:optional optional?)
(match extensions
('() '())
((tag rest ...)
(match tag
(('http://maven.apache.org/POM/4.0.0:extension extension ...)
(let ((group (or (pom-groupid extension) "org.apache.maven.plugins"))
(artifact (pom-artifactid extension)))
(if (member artifact (or (assoc-ref excludes group) '()))
(fix-extensions rest optional?)
`((http://maven.apache.org/POM/4.0.0:extension
,(fix-plugin extension optional?)); extensions are similar to plugins
,@(fix-extensions rest optional?)))))
(tag (cons tag (fix-extensions rest optional?)))))))
(define fix-management (define fix-management
(match-lambda (match-lambda
('() '()) ('() '())