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

FIXUP toimisko tää quasiquote

Browse Source
This commit is contained in:
Saku Laesvuori 2025-04-19 14:38:45 +03:00
parent 32895539a3
commit c608e965b4
Signed by: slaesvuo
GPG Key ID: 257D284A2A1D3A32
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -71,17 +71,17 @@ the tiedote.md user on this system.")
(mkdir-p socket-directory) (mkdir-p socket-directory)
(chown socket-directory uid gid) (chown socket-directory uid gid)
(make-forkexec-constructor (make-forkexec-constructor
`(,#$(file-append tiedote.md "/bin/tiedote.md") (list #$(file-append tiedote.md "/bin/tiedote.md")
"--address" ,#$email-address "--address" #$email-address
"--sender-name" ,#$sender-name "--sender-name" #$sender-name
"--sendmail" ,#$sendmail-path "--sendmail" #$sendmail-path
"--socket" ,#$socket-path "--socket" #$socket-path
"--repository" ,repo-path "--repository" repo-path
"--port" ,#$(number->string port) "--port" #$(number->string port)
"--remote-url" ,#$remote-url "--remote-url" #$remote-url
,@(if #$(maybe-value-set? remote-branch) ;,@(if #$(maybe-value-set? remote-branch)
(list "--remote-branch" #$remote-branch) ; (list "--remote-branch" #$remote-branch)
'()) ; '())
"server") "server")
#:user "tiedote.md" #:user "tiedote.md"
#:group "tiedote.md" #:group "tiedote.md"