ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 23:46:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: linux: Return #t from all phases.

Browse source 
* 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

23
gnu/packages/linux.scm
View file

@ -1251,7 +1251,8 @@ (define-public iproute
(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 @@ (define-public ntfs-3g
(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 @@ (define-public cpupower
'(#: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 @@ (define-public cpupower
(("/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 @@ (define-public radeontop
;; 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 _
(("ver=unknown") (substitute* "getver.sh"
(string-append "ver=" ,version))))) (("ver=unknown")
(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 @@ (define-public tlp
#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"))