services: mcron: Use (shepherd support) module unconditionally.

This fixes a issue introduced in the previous commit 552d070377 (services:
mcron: Add module for %user-log-dir.)  which made the expression invalid when
using a '() module for the system service.

* gnu/services/mcron.scm (mcron-shepherd-services)[modules]: Use
(shepherd support) unconditionally.
This commit is contained in:
Hilton Chain 2023-08-22 21:37:41 +08:00
parent 552d070377
commit 0c4fb8f43f
No known key found for this signature in database
GPG key ID: ACC66D09CA528292

View file

@ -165,9 +165,7 @@ (define (mcron-shepherd-services config)
(ice-9 popen) ;for the 'schedule' action (ice-9 popen) ;for the 'schedule' action
(ice-9 rdelim) (ice-9 rdelim)
(ice-9 match) (ice-9 match)
,(if home-service? ((shepherd support) #:select (%user-log-dir))
'((shepherd support) #:select (%user-log-dir))
'())
,@%default-modules)) ,@%default-modules))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list #$(file-append mcron "/bin/mcron") (list #$(file-append mcron "/bin/mcron")