FIXUP toimisko tää quasiquote

This commit is contained in:
Saku Laesvuori 2025-04-19 14:38:45 +03:00
parent 611e7f25a8
commit 8b76060416
Signed by: slaesvuo
GPG Key ID: 257D284A2A1D3A32

View File

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