mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 13:28:12 -05:00
build: cargo-build-system: Check for pregenerated files.
* guix/build/cargo-build-system.scm (check-for-pregenerated-files): New procedure. (%standard-phases): Add 'check-for-pregenerated-files phase between 'unpack and 'unpack-rust-crates.
This commit is contained in:
parent
f5907db6eb
commit
c2ac2e3f38
1 changed files with 9 additions and 1 deletions
|
@ -111,6 +111,13 @@ (define (inputs->directories inputs)
|
|||
(define (rust-package? name)
|
||||
(string-prefix? "rust-" name))
|
||||
|
||||
(define* (check-for-pregenerated-files #:rest _)
|
||||
"Check the source code for files which are known to generally be bundled
|
||||
libraries or executables."
|
||||
(let ((pregenerated-files (find-files "." "\\.(a|dll|exe|lib)$")))
|
||||
(when (not (null-list? pregenerated-files))
|
||||
(error "Possible pre-generated files found:" pregenerated-files))))
|
||||
|
||||
(define* (configure #:key inputs
|
||||
(vendor-dir "guix-vendor")
|
||||
#:allow-other-keys)
|
||||
|
@ -285,7 +292,8 @@ (define %standard-phases
|
|||
(replace 'check check)
|
||||
(replace 'install install)
|
||||
(add-after 'build 'package package)
|
||||
(add-after 'unpack 'unpack-rust-crates unpack-rust-crates)
|
||||
(add-after 'unpack 'check-for-pregenerated-files check-for-pregenerated-files)
|
||||
(add-after 'check-for-pregenerated-files 'unpack-rust-crates unpack-rust-crates)
|
||||
(add-after 'patch-generated-file-shebangs 'patch-cargo-checksums patch-cargo-checksums)))
|
||||
|
||||
(define* (cargo-build #:key inputs (phases %standard-phases)
|
||||
|
|
Loading…
Reference in a new issue