FIXUP lisää Gitin ssl-tiedot

.guix/modules/tiedote-md-service.scm

@@ -71,24 +71,23 @@ 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")
+                          (list #$(file-append tiedote-md "/bin/tiedote.md")
                             "--address" #$email-address
                             "--sender-name" #$sender-name
                             "--sendmail" #$sendmail-path
                             "--socket" #$socket-path
                             "server"
-                            "--repository" ,repo-path
+                            "--repository" repo-path
                             "--port" #$(number->string port)
                             "--remote-url" #$remote-url
-                            ,@(if #$(maybe-value-set? remote-branch)
-                                (list "--remote-branch" #$remote-branch)
-                                '()))
+                            ;,@(if #$(maybe-value-set? remote-branch)
+                            ;    (list "--remote-branch" #$remote-branch)
+                            ;    '())
+                            )
                           #:user "tiedote.md"
                           #:group "tiedote.md"
-                          #:environment-variables
-                          (cons* "GIT_SSL_CAINFO=/etc/ssl/certs/ca-certificates.crt"
-                                 "LC_ALL=C.utf8"
-                                 (default-environment-variables))
+                          #:environment (cons "GIT_SSL_CAINFO=/etc/ssl/certs/ca-certificates.crt"
+                                              (default-environment-variable))
                           #:directory #$state-directory))))
             (stop #~(make-kill-destructor))))))