From bea01c0d2ba4d4198423a014ae0322e0817a803a Mon Sep 17 00:00:00 2001 From: Ivan Petkov Date: Thu, 2 May 2019 03:38:13 -0700 Subject: gnu: rust: Delete install logs and manifests. * gnu/packages/rust.scm (rust-1.20)[arguments]<#:phases>[delete-install-logs]: New phase. Signed-off-by: Danny Milosavljevic --- gnu/packages/rust.scm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'gnu') diff --git a/gnu/packages/rust.scm b/gnu/packages/rust.scm index 27388d307e..becb804f18 100644 --- a/gnu/packages/rust.scm +++ b/gnu/packages/rust.scm @@ -597,6 +597,24 @@ jemalloc = \"" jemalloc "/lib/libjemalloc_pic.a" "\" (("prefix = \"[^\"]*\"") (string-append "prefix = \"" (assoc-ref outputs "cargo") "\""))) (invoke "./x.py" "install" "cargo"))) + (add-after 'install 'delete-install-logs + (lambda* (#:key outputs #:allow-other-keys) + (define (delete-manifest-file out-path file) + (delete-file (string-append out-path "/lib/rustlib/" file))) + + (let ((out (assoc-ref outputs "out")) + (cargo-out (assoc-ref outputs "cargo"))) + (for-each + (lambda (file) (delete-manifest-file out file)) + '("install.log" + "manifest-rust-docs" + "manifest-rust-std-x86_64-unknown-linux-gnu" + "manifest-rustc")) + (for-each + (lambda (file) (delete-manifest-file cargo-out file)) + '("install.log" + "manifest-cargo")) + #t))) (add-after 'install 'wrap-rustc (lambda* (#:key inputs outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out")) -- cgit v1.2.3