From 51bdc7674c132f013c02c8b5b4c5f671a5a2de1c Mon Sep 17 00:00:00 2001 From: Ryan Schanzenbacher Date: Mon, 24 Feb 2025 19:50:21 -0500 Subject: [PATCH] Fixed download folder manager service --- modules/ryan-services/file-manager.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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