01/05: gnu: rust: Hide "ar" entry from address@hidden

[Danny Milosavljevic]

dannym pushed a commit to branch wip-rust
in repository guix.

commit 7bf169f75cb4ffcef1393e702104eed63bc70917
Author: Danny Milosavljevic <address@hidden>
Date:   Sun Sep 23 01:19:53 2018 +0200

    gnu: rust: Hide "ar" entry from address@hidden
    
    * gnu/packages/rust.scm (rust-1.21)[arguments]<#:phases>[remove-ar]: New
    phase.
---
 gnu/packages/rust.scm | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/rust.scm b/gnu/packages/rust.scm
index f2794be..7871946 100644
--- a/gnu/packages/rust.scm
+++ b/gnu/packages/rust.scm
@@ -637,8 +637,20 @@ jemalloc = \"" jemalloc "/lib/libjemalloc_pic.a" "\"
                    #t))))))))))
 
 (define-public rust-1.21
-  (rust-bootstrapped-package rust-1.20 "1.21.0"
-                             
"1yj8lnxybjrybp00fqhxw8fpr641dh8wcn9mk44xjnsb4i1c21qp"))
+  (let ((base-rust (rust-bootstrapped-package rust-1.20 "1.21.0"
+                    "1yj8lnxybjrybp00fqhxw8fpr641dh8wcn9mk44xjnsb4i1c21qp")))
+    (package
+      (inherit base-rust)
+      (arguments
+       (substitute-keyword-arguments (package-arguments base-rust)
+         ((#:phases phases)
+          `(modify-phases ,phases
+             (add-after 'configure 'remove-ar
+               (lambda* (#:key inputs #:allow-other-keys)
+                 ;; Remove because toml complains about "unknown field".
+                 (substitute* "config.toml"
+                  (("^ar =.*") "\n"))
+                 #t)))))))))
 
 (define-public rust-1.22
   (rust-bootstrapped-package rust-1.21 "1.22.1"