services: linux: Remove redundant definitions
parent
887d42ca4f
commit
a5ea07f4ae
|
@ -19,15 +19,6 @@
|
|||
thinkfan-shepherd-service
|
||||
thinkfan-service-type))
|
||||
|
||||
(define ((list-of predicate) x)
|
||||
(null? (filter (negate predicate) x)))
|
||||
|
||||
(define list-of-symbols?
|
||||
(list-of symbol?))
|
||||
|
||||
(define list-of-strings?
|
||||
(list-of string?))
|
||||
|
||||
(define-configuration/no-serialization thinkfan-configuration
|
||||
(pid-file
|
||||
(string "/var/run/thinkfan.pid")
|
||||
|
@ -50,7 +41,7 @@ arbitrary command-line arguments to ‘thinkfan’ as a list of strings."))
|
|||
(provision '(thinkfan))
|
||||
(documentation
|
||||
"Adjust fan level according to configured temperature limits.")
|
||||
(requirement '(user-processes kernel-module-loader))
|
||||
(requirement '(user-processes))
|
||||
(start #~(make-forkexec-constructor
|
||||
(list (string-append #$thinkfan-next
|
||||
"/sbin/thinkfan")
|
||||
|
|
Loading…
Reference in New Issue