From 717af5c261c3614ff45eb6b9d7bfcf73adcb09e2 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 11 Mar 2024 15:12:27 +0000
Subject: Infer profile from guix executable used to build container.

Not everyone has GUIX_PROFILE set in their environment. Inferring the
profile from the guix executable is more reliable.

* genenetwork-development.scm (channels-scm-gexp): Infer profile from
guix executable used to build container.
---
 genenetwork-development.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'genenetwork-development.scm')

diff --git a/genenetwork-development.scm b/genenetwork-development.scm
index 7c34719..886ad82 100644
--- a/genenetwork-development.scm
+++ b/genenetwork-development.scm
@@ -993,8 +993,11 @@ should be included in the channels.scm file."
                                                   published-channel-names)
                                             (channel->code channel)))
                                      (profile-channels
-                                      (or (getenv "GUIX_PROFILE")
-                                          (string-append %profile-directory "/current-guix")))))
+                                      ;; Infer profile from guix
+                                      ;; executable used.
+                                      (match (program-arguments)
+                                        ((program . _)
+                                         (dirname (dirname program)))))))
              port))))))
 
 (define (development-server-reverse-proxy-server-block gn2-port gn3-port)
-- 
cgit v1.2.3