diff options
| -rw-r--r-- | modules/ryan-services/file-manager.scm | 6 | 
1 files 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 @@ | |||
| 38 | (define downloads-garbage-collector-service | 38 | (define downloads-garbage-collector-service | 
| 39 | (match-record-lambda <downloads-garbage-collector-configuration> | 39 | (match-record-lambda <downloads-garbage-collector-configuration> | 
| 40 | (user) | 40 | (user) | 
| 41 | (let ((cleanup-command #~(list "find" (string-append "/home/" #$user "/Downloads") "-mtime" "+7" "-exec" "rm" "-rf" "{}" "';'"))) | 41 | (let ((cleanup-command #~(list "find" (string-append "/home/" #$user "/Downloads") "-mtime" "+7" "-exec" "rm" "-rf" "'{}'" ";"))) | 
| 42 | (shepherd-service | 42 | (shepherd-service | 
| 43 | (documentation "Garbage collect downloaded files more than 1 week old for USER.") | 43 | (documentation "Garbage collect downloaded files more than 1 week old for USER.") | 
| 44 | (provision '(downloads-garbage-collector)) | 44 | (provision '(downloads-garbage-collector)) | 
| 45 | ;(requirement '(root)) | 45 | ;(requirement '(root)) | 
| 46 | (modules '((shepherd service timer))) | 46 | (modules '((shepherd service timer))) | 
| 47 | (start #~(make-timer-constructor | 47 | (start #~(make-timer-constructor | 
| 48 | (calendar-event #:hours '(8) #:minutes '(20) | 48 | (calendar-event #:hours '(19) #:minutes '(50) | 
| 49 | #:days-of-week '(tuesday)) | 49 | #:days-of-week '(monday)) | 
| 50 | (command #$cleanup-command))) | 50 | (command #$cleanup-command))) | 
| 51 | (stop #~(make-timer-destructor)) | 51 | (stop #~(make-timer-destructor)) | 
| 52 | (actions (list (shepherd-action | 52 | (actions (list (shepherd-action | 
