nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

gnu: linux: Return #t from all phases. 

* gnu/packages/linux.scm (iproute, ntfs-3g, cpupower, radeontop, tlp):
Return #t from all phases.
This commit is contained in:
Mark H Weaver 2018-06-27 20:46:38 -04:00
parent fccacffbf4
commit 9922278b25
No known key found for this signature in database
GPG Key ID: 7CEF29847562C516
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gnu/packages/linux.scm
View File

@ -1251,7 +1251,8 @@ that the Ethernet protocol is much simpler than the IP protocol.")
(lambda _ (lambda _
;; Don't attempt to create /var/lib/arpd. ;; Don't attempt to create /var/lib/arpd.
(substitute* "Makefile" (substitute* "Makefile"
(("^.*ARPDDIR.*$") ""))))))) (("^.*ARPDDIR.*$") ""))
#t)))))
(inputs (inputs
`(("iptables" ,iptables) `(("iptables" ,iptables)
("db4" ,bdb))) ("db4" ,bdb)))
@ -3539,7 +3540,8 @@ from userspace.")
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(sbin (string-append out "/sbin"))) (sbin (string-append out "/sbin")))
(symlink "mount.ntfs-3g" (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/") (home-page "https://www.tuxera.com/community/open-source-ntfs-3g/")
(synopsis "Read-write access to NTFS file systems") (synopsis "Read-write access to NTFS file systems")
(description (description
@ -3696,7 +3698,8 @@ from that to the system kernel's @file{/dev/random} machinery.")
'(#:phases (modify-phases %standard-phases '(#:phases (modify-phases %standard-phases
(add-after 'unpack 'enter-subdirectory (add-after 'unpack 'enter-subdirectory
(lambda _ (lambda _
(chdir "tools/power/cpupower"))) (chdir "tools/power/cpupower")
#t))
(delete 'configure) (delete 'configure)
(add-before 'build 'fix-makefiles (add-before 'build 'fix-makefiles
(lambda _ (lambda _
@ -3704,7 +3707,8 @@ from that to the system kernel's @file{/dev/random} machinery.")
(("/usr/") "/") (("/usr/") "/")
(("/bin/(install|pwd)" _ command) command)) (("/bin/(install|pwd)" _ command) command))
(substitute* "bench/Makefile" (substitute* "bench/Makefile"
(("\\$\\(CC\\) -o") "$(CC) $(LDFLAGS) -o"))))) (("\\$\\(CC\\) -o") "$(CC) $(LDFLAGS) -o"))
#t)))
#:make-flags (let ((out (assoc-ref %outputs "out"))) #:make-flags (let ((out (assoc-ref %outputs "out")))
(list (string-append "DESTDIR=" out) (list (string-append "DESTDIR=" out)
(string-append "LDFLAGS=-Wl,-rpath=" out "/lib") (string-append "LDFLAGS=-Wl,-rpath=" out "/lib")
@ -4016,9 +4020,11 @@ developers.")
;; getver.sh uses ‘git --describe’, isn't worth an extra git ;; getver.sh uses ‘git --describe’, isn't worth an extra git
;; dependency, and doesn't even work on release(!) tarballs. ;; dependency, and doesn't even work on release(!) tarballs.
(add-after 'unpack 'report-correct-version (add-after 'unpack 'report-correct-version
(lambda _ (substitute* "getver.sh" (lambda _
(substitute* "getver.sh"
(("ver=unknown") (("ver=unknown")
(string-append "ver=" ,version))))) (string-append "ver=" ,version)))
#t))
(delete 'configure)) ; no configure script (delete 'configure)) ; no configure script
#:make-flags (list "CC=gcc" #:make-flags (list "CC=gcc"
(string-append "PREFIX=" %output)) (string-append "PREFIX=" %output))
@ -4245,8 +4251,7 @@ Light is the successor of lightscript.")
#t)) #t))
(replace 'install (replace 'install
(lambda _ (lambda _
(invoke "make" "install-tlp" "install-man") (invoke "make" "install-tlp" "install-man")))
#t))
(add-after 'install 'wrap (add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((bin (string-append (assoc-ref outputs "out") "/bin")) (let* ((bin (string-append (assoc-ref outputs "out") "/bin"))