From 7abe5fe98c5759dbe41d2f96d5da2b63d288f9b3 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Sun, 25 Aug 2024 22:16:09 +0200
Subject: Import with-mail-out properly

---
 tw/services/restic.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tw/services/restic.scm')

diff --git a/tw/services/restic.scm b/tw/services/restic.scm
index 2ea8c084..3d081fa8 100644
--- a/tw/services/restic.scm
+++ b/tw/services/restic.scm
@@ -249,7 +249,7 @@ true."
                             prune? keep-last keep-hourly keep-daily keep-weekly
                             keep-monthly keep-yearly keep-within)
       #~(job #$schedule
-             (with-mail-out
+             ((@ (mcron redirect) with-mail-out)
               #$(program-file
                     ;; Make cron commands for different repos easier to distinguish.
                     (string-append "restic-cleanup-" (repo-path-basename repo) "-command")
@@ -315,7 +315,7 @@ must be given.  Leading @code{~/} are replaced with @code{$HOME}.")
   (define (cronjob config)
     (match-record config <restic-scheduled-backup> (schedule paths repo password tags restic)
       #~(job #$schedule
-             (with-mail-out
+             ((@ (mcron redirect) with-mail-out)
               #$(program-file "restic-backup-command"
                   #~(begin
                       (use-modules (ice-9 popen)
-- 
cgit v1.2.3