[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/13: gnu: linux: Return #t from all phases.
From: |
Mark H. Weaver |
Subject: |
03/13: gnu: linux: Return #t from all phases. |
Date: |
Wed, 14 Nov 2018 23:45:19 -0500 (EST) |
mhw pushed a commit to branch core-updates
in repository guix.
commit 9922278b25d552ea5bfc4a3a94f2837dc41eaa9d
Author: Mark H Weaver <address@hidden>
Date: Wed Jun 27 20:46:38 2018 -0400
gnu: linux: Return #t from all phases.
* gnu/packages/linux.scm (iproute, ntfs-3g, cpupower, radeontop, tlp):
Return #t from all phases.
---
gnu/packages/linux.scm | 23 ++++++++++++++---------
1 file changed, 14 insertions(+), 9 deletions(-)
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 955ad43..bdad160 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -1251,7 +1251,8 @@ that the Ethernet protocol is much simpler than the IP
protocol.")
(lambda _
;; Don't attempt to create /var/lib/arpd.
(substitute* "Makefile"
- (("^.*ARPDDIR.*$") "")))))))
+ (("^.*ARPDDIR.*$") ""))
+ #t)))))
(inputs
`(("iptables" ,iptables)
("db4" ,bdb)))
@@ -3539,7 +3540,8 @@ from userspace.")
(let* ((out (assoc-ref outputs "out"))
(sbin (string-append out "/sbin")))
(symlink "mount.ntfs-3g"
- (string-append sbin "/mount.ntfs"))))))))
+ (string-append sbin "/mount.ntfs")))
+ #t)))))
(home-page "https://www.tuxera.com/community/open-source-ntfs-3g/")
(synopsis "Read-write access to NTFS file systems")
(description
@@ -3696,7 +3698,8 @@ from that to the system kernel's @file{/dev/random}
machinery.")
'(#:phases (modify-phases %standard-phases
(add-after 'unpack 'enter-subdirectory
(lambda _
- (chdir "tools/power/cpupower")))
+ (chdir "tools/power/cpupower")
+ #t))
(delete 'configure)
(add-before 'build 'fix-makefiles
(lambda _
@@ -3704,7 +3707,8 @@ from that to the system kernel's @file{/dev/random}
machinery.")
(("/usr/") "/")
(("/bin/(install|pwd)" _ command) command))
(substitute* "bench/Makefile"
- (("\\$\\(CC\\) -o") "$(CC) $(LDFLAGS) -o")))))
+ (("\\$\\(CC\\) -o") "$(CC) $(LDFLAGS) -o"))
+ #t)))
#:make-flags (let ((out (assoc-ref %outputs "out")))
(list (string-append "DESTDIR=" out)
(string-append "LDFLAGS=-Wl,-rpath=" out "/lib")
@@ -4016,9 +4020,11 @@ developers.")
;; getver.sh uses ‘git --describe’, isn't worth an extra git
;; dependency, and doesn't even work on release(!) tarballs.
(add-after 'unpack 'report-correct-version
- (lambda _ (substitute* "getver.sh"
- (("ver=unknown")
- (string-append "ver=" ,version)))))
+ (lambda _
+ (substitute* "getver.sh"
+ (("ver=unknown")
+ (string-append "ver=" ,version)))
+ #t))
(delete 'configure)) ; no configure script
#:make-flags (list "CC=gcc"
(string-append "PREFIX=" %output))
@@ -4245,8 +4251,7 @@ Light is the successor of lightscript.")
#t))
(replace 'install
(lambda _
- (invoke "make" "install-tlp" "install-man")
- #t))
+ (invoke "make" "install-tlp" "install-man")))
(add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((bin (string-append (assoc-ref outputs "out") "/bin"))
- branch core-updates updated (21f7d88 -> 2e0f690), Mark H. Weaver, 2018/11/14
- 02/13: gnu: image: Return #t from all phases., Mark H. Weaver, 2018/11/14
- 03/13: gnu: linux: Return #t from all phases.,
Mark H. Weaver <=
- 07/13: gnu: xml: Return #t from all phases., Mark H. Weaver, 2018/11/14
- 01/13: gnu: admin: Return #t from all phases., Mark H. Weaver, 2018/11/14
- 04/13: gnu: networking: Return #t from all phases., Mark H. Weaver, 2018/11/14
- 05/13: gnu: perl: Return #t from all phases., Mark H. Weaver, 2018/11/14
- 06/13: gnu: video: Return #t from all phases., Mark H. Weaver, 2018/11/14
- 08/13: gnu: xorg: Return #t from all phases., Mark H. Weaver, 2018/11/14
- 09/13: gnu: audio: Return #t from all phases., Mark H. Weaver, 2018/11/14
- 10/13: gnu: check: Return #t from all phases., Mark H. Weaver, 2018/11/14
- 11/13: gnu: compression: Return #t from all phases., Mark H. Weaver, 2018/11/14
- 13/13: gnu: bioinformatics: Return #t from all phases and snippets., Mark H. Weaver, 2018/11/14