[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/03: gnu: tree: Rewrite with gexps.
From: |
guix-commits |
Subject: |
03/03: gnu: tree: Rewrite with gexps. |
Date: |
Wed, 12 Jan 2022 05:44:15 -0500 (EST) |
efraim pushed a commit to branch master
in repository guix.
commit 2d3bec89b5f7d4dcdfc78a404a06d27639eec83d
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Jan 12 12:42:12 2022 +0200
gnu: tree: Rewrite with gexps.
* gnu/packages/admin.scm (tree)[arguments]: Rewrite with gexps.
---
gnu/packages/admin.scm | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 6289b89e9a..f11374a439 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -2405,11 +2405,14 @@ recover lost partitions and/or make non-booting disks
bootable again.")
(base32
"0f92vx6gpz7v29wi9clklzah57v7lgx5kv0m1w4b9xjc35d9qcz3"))))
(build-system gnu-build-system)
(arguments
- `(#:phases (modify-phases %standard-phases (delete 'configure))
- #:tests? #f ; no check target
- #:make-flags (let ((out (assoc-ref %outputs "out")))
- (list (string-append "PREFIX=" out)
- (string-append "CC=" ,(cc-for-target))))))
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ (delete 'configure)) ; No configure script.
+ #:tests? #f ; No check target.
+ #:make-flags
+ #~(list (string-append "PREFIX=" #$output)
+ (string-append "CC=" #$(cc-for-target)))))
(synopsis "Recursively list the contents of a directory")
(description
"Tree is a recursive directory listing command that produces a depth