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

Compare commits

base: OMS:guix-palvelu
Branches Tags
OMS:main
OMS:guix-palvelu
OMS:keyring
..
compare: OMS:main
Branches Tags
OMS:main
OMS:guix-palvelu
OMS:keyring

1 Commits
guix-palve ... main

Author SHA1 Message Date
Saku Laesvuori
2dd716b2e7
Lisää Guix-järjestelmäpalvelu 2025-04-19 23:07:47 +03:00
1 changed files with 9 additions and 8 deletions
Show Stats Expand all files Collapse all files

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

@ -71,23 +71,24 @@ 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
(list #$(file-append tiedote-md "/bin/tiedote.md") `(#$(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
"server" "server"
"--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)
; '()) '()))
)
#:user "tiedote.md" #:user "tiedote.md"
#:group "tiedote.md" #:group "tiedote.md"
#:environment (cons "GIT_SSL_CAINFO=/etc/ssl/certs/ca-certificates.crt" #:environment-variables
(default-environment-variable)) (cons* "GIT_SSL_CAINFO=/etc/ssl/certs/ca-certificates.crt"
"LC_ALL=C.utf8"
(default-environment-variables))
#:directory #$state-directory)))) #:directory #$state-directory))))
(stop #~(make-kill-destructor)))))) (stop #~(make-kill-destructor))))))