gnu: tlp: Install all files.

* gnu/packages/linux.scm (tlp)[arguments]: Add ‘fix-installation’ phase so
the installation no longer aborts half-way, and use ‘zero?’ in the install
phase so this cannot go undetected again.
master
Tobias Geerinckx-Rice 2017-05-03 17:22:33 +02:00
parent 69daee23af
commit cef3f14644
No known key found for this signature in database
GPG Key ID: 91CCDB9B48541B99
1 changed files with 7 additions and 3 deletions

View File

@ -3658,7 +3658,7 @@ Light is the successor of lightscript.")
(arguments (arguments
`(#:phases `(#:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'configure) (delete 'configure) ; no configure script
(add-before 'build 'setenv (add-before 'build 'setenv
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
@ -3673,10 +3673,14 @@ Light is the successor of lightscript.")
(setenv "TLP_SHCPL" (setenv "TLP_SHCPL"
(string-append out "/share/bash-completion/completions")) (string-append out "/share/bash-completion/completions"))
(setenv "TLP_MAN" (string-append out "/share/man"))))) (setenv "TLP_MAN" (string-append out "/share/man")))))
(delete 'check) (delete 'check) ; no tests
(add-before 'install 'fix-installation
(lambda _
;; Stop the Makefile from trying to create system directories.
(substitute* "Makefile" (("\\[ -f \\$\\(_CONF\\) \\]") "#"))))
(replace 'install (replace 'install
(lambda _ (lambda _
(system "make install-tlp install-man"))) (zero? (system* "make" "install-tlp" "install-man"))))
(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"))