cristiancmoises
/
radix
mirror of https://codeberg.org/anemofilia/radix.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

services: linux: Remove redundant definitions

pull/1/head
Luis Guilherme Coelho 2023-11-25 12:53:24 -03:00
parent 887d42ca4f
commit a5ea07f4ae
No known key found for this signature in database
GPG Key ID: 1F2E76ACE3F531C8
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
modules/radix/services/linux.scm
View File

@ -19,15 +19,6 @@
thinkfan-shepherd-service thinkfan-shepherd-service
thinkfan-service-type)) 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 (define-configuration/no-serialization thinkfan-configuration
(pid-file (pid-file
(string "/var/run/thinkfan.pid") (string "/var/run/thinkfan.pid")
@ -50,7 +41,7 @@ arbitrary command-line arguments to ‘thinkfan’ as a list of strings."))
(provision '(thinkfan)) (provision '(thinkfan))
(documentation (documentation
"Adjust fan level according to configured temperature limits.") "Adjust fan level according to configured temperature limits.")
(requirement '(user-processes kernel-module-loader)) (requirement '(user-processes))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list (string-append #$thinkfan-next (list (string-append #$thinkfan-next
"/sbin/thinkfan") "/sbin/thinkfan")