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

gnu: thinkfan: Fix daemon path in init scripts. 

* gnu/packages/linux.scm (thinkfan): Fix daemon path in init scripts.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Nicolas Goaziou 2016-05-10 21:20:49 +02:00 committed by Ludovic Courtès
parent 93d2456cfc
commit 75e56aedf0
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
gnu/packages/linux.scm
View File

@ -2622,15 +2622,20 @@ feature, and a laptop with an accelerometer. It has no effect on SSDs.")
`("-DUSE_ATASMART:BOOL=ON") `("-DUSE_ATASMART:BOOL=ON")
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
;; Install scripts for various foreign init systems. ;; Install scripts for various foreign init systems. Also fix
;; hard-coded path for daemon.
(add-after 'install 'install-rc-scripts (add-after 'install 'install-rc-scripts
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(for-each (cute install-file <> (let ((out (assoc-ref outputs "out"))
(string-append (assoc-ref outputs "out") (files (find-files
"/share/thinkfan")) (string-append "../thinkfan-" ,version "/rcscripts")
(find-files (string-append "../thinkfan-" ,version ".*")))
"/rcscripts") (substitute* files
".*")) (("/usr/sbin/(\\$NAME|thinkfan)" _ name)
(string-append out "/sbin/" name)))
(for-each (cute install-file <>
(string-append out "/share/thinkfan"))
files))
#t))))) #t)))))
(inputs (inputs
`(("libatasmart" ,libatasmart))) `(("libatasmart" ,libatasmart)))