diff options
| -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) |