diff options
| author | Arun Isaac | 2024-03-11 15:12:27 +0000 |
|---|---|---|
| committer | Arun Isaac | 2024-03-11 15:12:27 +0000 |
| commit | 717af5c261c3614ff45eb6b9d7bfcf73adcb09e2 (patch) | |
| tree | e75823524823b5c5e57b0b789eab3fba30ef5d46 /genenetwork-development.scm | |
| parent | 3287d39906ce5018f6a3b264bf2657986eaded49 (diff) | |
| download | gn-machines-717af5c261c3614ff45eb6b9d7bfcf73adcb09e2.tar.gz | |
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.
Diffstat (limited to 'genenetwork-development.scm')
| -rw-r--r-- | genenetwork-development.scm | 7 |
1 files changed, 5 insertions, 2 deletions
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) |