services: pm: Remove thinkfan activation-service extension
parent
eeb67eeafc
commit
9ac53fb19b
|
@ -57,22 +57,12 @@ arbitrary command-line arguments to ‘thinkfan’ as a list of strings."))
|
||||||
(define (thinkfan-modprobe-etc-service config)
|
(define (thinkfan-modprobe-etc-service config)
|
||||||
`(("modprobe.d/thinkfan.conf" ,thinkfan-modprobe-config)))
|
`(("modprobe.d/thinkfan.conf" ,thinkfan-modprobe-config)))
|
||||||
|
|
||||||
(define thinkfan-activation
|
|
||||||
(match-record-lambda <thinkfan-configuration>
|
|
||||||
(config-file)
|
|
||||||
(when (file-like? config-file)
|
|
||||||
#~(begin
|
|
||||||
(use-modules (guix build utils))
|
|
||||||
(copy-file #$config-file "/etc/thinkfan.conf")))))
|
|
||||||
|
|
||||||
(define thinkfan-service-type
|
(define thinkfan-service-type
|
||||||
(service-type
|
(service-type
|
||||||
(name 'thinkfan)
|
(name 'thinkfan)
|
||||||
(extensions
|
(extensions
|
||||||
(list (service-extension shepherd-root-service-type
|
(list (service-extension shepherd-root-service-type
|
||||||
thinkfan-shepherd-service)
|
thinkfan-shepherd-service)
|
||||||
(service-extension activation-service-type
|
|
||||||
thinkfan-activation)
|
|
||||||
(service-extension etc-service-type
|
(service-extension etc-service-type
|
||||||
thinkfan-modprobe-etc-service)))
|
thinkfan-modprobe-etc-service)))
|
||||||
(default-value (thinkfan-configuration))
|
(default-value (thinkfan-configuration))
|
||||||
|
|
Loading…
Reference in New Issue