From c2c48c52d4574b4c4f0cd3df6af3a56e3aa4186c Mon Sep 17 00:00:00 2001 From: Saku Laesvuori Date: Sat, 19 Apr 2025 18:54:46 +0300 Subject: [PATCH] FIXUP cleanup .forward --- .guix/modules/tiedote-md-service.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/.guix/modules/tiedote-md-service.scm b/.guix/modules/tiedote-md-service.scm index 1323f78..81de2c7 100644 --- a/.guix/modules/tiedote-md-service.scm +++ b/.guix/modules/tiedote-md-service.scm @@ -101,8 +101,10 @@ the tiedote.md user on this system.") (receive-script (program-file "tiedote.md-receive" #~(apply execl #$receive-exec))) (forward-file (mixed-text-file "dot-forward" "|" receive-script))) - #~(symlink #$forward-file - (string-append #$state-directory "/.forward"))))) + #~(let ((.forward (string-append #$state-directory "/.forward"))) + (if (file-exists? .forward) + (delete-file .forward)) + (symlink #$forward-file .forward))))) (define tiedote.md-service-type (service-type