services: fstrim: Fix schedule ungexp.
Previously, only the first level of the list would be quoted, resulting in a schedule of the sort: '(next-second (range 0 60 30)) being incorrectly ungexp'd into: (list next-second (0 30)) * gnu/services/linux.scm (fstrim-mcron-job): Fix schedule ungexp. Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
parent
21f35d2832
commit
f215d80127
1 changed files with 1 additions and 1 deletions
|
@ -234,7 +234,7 @@ (define (fstrim-mcron-job config)
|
|||
;; lists are ungexp'd correctly since @var{schedule}
|
||||
;; can be either a procedure, a string or a list.
|
||||
#$(if (list? schedule)
|
||||
`(list ,@schedule)
|
||||
#~'(#$@schedule)
|
||||
schedule)
|
||||
(lambda ()
|
||||
(system* #$(file-append package "/sbin/fstrim")
|
||||
|
|
Loading…
Reference in a new issue