diff options
Diffstat (limited to 'guix/scripts/pack.scm')
| -rw-r--r-- | guix/scripts/pack.scm | 23 |
1 files changed, 5 insertions, 18 deletions
diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm index 857cb46af3..1d2046775c 100644 --- a/guix/scripts/pack.scm +++ b/guix/scripts/pack.scm @@ -312,25 +312,12 @@ added to the pack." "Return a shell script that defines the environment variables corresponding to the search paths of PROFILE." (define build - (with-extensions (list guile-gcrypt) - (with-imported-modules `(((guix config) => ,(make-config.scm)) - ,@(source-module-closure - `((guix profiles) - (guix search-paths)) - #:select? not-config?)) - #~(begin - (use-modules (guix profiles) (guix search-paths) - (ice-9 match)) + #~(begin + (use-modules (ice-9 match)) - (call-with-output-file #$output - (lambda (port) - (for-each (match-lambda - ((spec . value) - (format port "~a=~a~%export ~a~%" - (search-path-specification-variable spec) - value - (search-path-specification-variable spec)))) - (profile-search-paths #$profile)))))))) + (call-with-output-file #$output + (lambda (port) + (format port ". ~a/etc/profile~%" #$profile))))) (computed-file "singularity-environment.sh" build)) |