about summary refs log tree commit diff
diff options
context:
space:
mode:
authorFrederick Muriuki Muriithi2026-03-13 13:55:14 -0500
committerFrederick Muriuki Muriithi2026-03-19 09:19:22 -0500
commit848518023c9e9a3f36c78ce3a3f07c0e3cdbbfb8 (patch)
treeb0f7d6c2d6f32a7af7fa4edd61537e7411fbc52b
parentfe6b8c73d9e6ceb4053ac0d2c9489a317f7d76ab (diff)
downloadgn-machines-848518023c9e9a3f36c78ce3a3f07c0e3cdbbfb8.tar.gz
gn-guile: Setup `HOME` and `USER` envvars.
The `gn-guile' service checks for configurations in the HOME directory
and in the current working directory (CWD). If the HOME environment
variable is not set, then `(getenv "HOME")' returns `#f' which causes
an error to be raised in `guile-config' when it attempts to do
`(string-append (getenv "HOME") ...)'.

This commit ensures the HOME environment variable is set to prevent
the error from occurring.
-rw-r--r--genenetwork/services/genenetwork.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/genenetwork/services/genenetwork.scm b/genenetwork/services/genenetwork.scm
index f880571..1e63ad2 100644
--- a/genenetwork/services/genenetwork.scm
+++ b/genenetwork/services/genenetwork.scm
@@ -743,7 +743,8 @@ a @code{<genenetwork-configuration>} record."
                     "127.0.0.1" #$(number->string gn-guile-port))
               #:user "root"
               #:group "root"
-	      #:log-file "/var/log/gn-guile.log"))
+	      #:log-file "/var/log/gn-guile.log"
+              #:environment-variables (user-environment-variables)))
      (stop #~(make-kill-destructor)))))
 
 (define genenetwork-service-type