diff --git a/modules/ryan-services/file-manager.scm b/modules/ryan-services/file-manager.scm index 1f76d0e..9c1493a 100644 --- a/modules/ryan-services/file-manager.scm +++ b/modules/ryan-services/file-manager.scm @@ -38,15 +38,15 @@ (define downloads-garbage-collector-service (match-record-lambda (user) - (let ((cleanup-command #~(list "find" (string-append "/home/" #$user "/Downloads") "-mtime" "+7" "-exec" "rm" "-rf" "{}" "';'"))) + (let ((cleanup-command #~(list "find" (string-append "/home/" #$user "/Downloads") "-mtime" "+7" "-exec" "rm" "-rf" "'{}'" ";"))) (shepherd-service (documentation "Garbage collect downloaded files more than 1 week old for USER.") (provision '(downloads-garbage-collector)) ;(requirement '(root)) (modules '((shepherd service timer))) (start #~(make-timer-constructor - (calendar-event #:hours '(8) #:minutes '(20) - #:days-of-week '(tuesday)) + (calendar-event #:hours '(19) #:minutes '(50) + #:days-of-week '(monday)) (command #$cleanup-command))) (stop #~(make-timer-destructor)) (actions (list (shepherd-action