OMS/tiedote.md
3
0
Fork 0
Code Issues 14 Pull Requests Projects Releases Wiki Activity

FIXUP cleanup .forward

Browse Source
This commit is contained in:
Saku Laesvuori 2025-04-19 18:54:46 +03:00
parent a98b362cbd
commit c2c48c52d4
Signed by: slaesvuo
GPG Key ID: 257D284A2A1D3A32
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.guix/modules/tiedote-md-service.scm
View File

@ -101,8 +101,10 @@ the tiedote.md user on this system.")
(receive-script (program-file "tiedote.md-receive" (receive-script (program-file "tiedote.md-receive"
#~(apply execl #$receive-exec))) #~(apply execl #$receive-exec)))
(forward-file (mixed-text-file "dot-forward" "|" receive-script))) (forward-file (mixed-text-file "dot-forward" "|" receive-script)))
#~(symlink #$forward-file #~(let ((.forward (string-append #$state-directory "/.forward")))
(string-append #$state-directory "/.forward"))))) (if (file-exists? .forward)
(delete-file .forward))
(symlink #$forward-file .forward)))))
(define tiedote.md-service-type (define tiedote.md-service-type
(service-type (service-type