diff options
author | Ludovic Courtès <ludo@gnu.org> | 2022-10-13 15:52:43 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2022-10-13 15:56:56 +0200 |
commit | 8b192c5550213911f930594f4fd7386f36618237 (patch) | |
tree | ab0a0715f95d0db36e1d6ccba7aff4ab194188ce /guix/scripts | |
parent | 10d429f2fce321d8285684503094694ec3979865 (diff) |
shell: Handle '--emulate-fhs' in 'guix shell', not in 'guix environment'.
Previously, using 'guix shell -CF coreutils' twice (such that the
profile is cache) would result in:
guix shell: error: '--profile' cannot be used with package options
This patch fixes it by moving argument handling to (guix scripts shell),
before 'options-with-caching' is called.
* guix/scripts/environment.scm (show-environment-options-help)
(%options): Remove '--emulate-fhs'.
(guix-environment*): Pass OPTS as-is to 'options/resolve-packages'.
* guix/scripts/shell.scm (show-help, %options): Add '--emulate-fhs'.
Add the (expression . ...) component to RESULT right from the argument
handler.
* tests/guix-environment-container.sh: Change '--emulate-fhs' tests to
use 'guix shell' instead of 'guix environment'.
Diffstat (limited to 'guix/scripts')
-rw-r--r-- | guix/scripts/environment.scm | 16 | ||||
-rw-r--r-- | guix/scripts/shell.scm | 18 |
2 files changed, 18 insertions, 16 deletions
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm index cf99760859..afe255fa4a 100644 --- a/guix/scripts/environment.scm +++ b/guix/scripts/environment.scm @@ -121,9 +121,6 @@ shell'." --expose=SPEC for containers, expose read-only host file system according to SPEC")) (display (G_ " - -F, --emulate-fhs for containers, emulate the Filesystem Hierarchy - Standard (FHS)")) - (display (G_ " -v, --verbosity=LEVEL use the given verbosity LEVEL")) (display (G_ " --bootstrap use bootstrap binaries to build the environment"))) @@ -260,9 +257,6 @@ use '--preserve' instead~%")) (alist-cons 'file-system-mapping (specification->file-system-mapping arg #f) result))) - (option '(#\F "emulate-fhs") #f #f - (lambda (opt name arg result) - (alist-cons 'emulate-fhs? #t result))) (option '(#\r "root") #t #f (lambda (opt name arg result) (alist-cons 'gc-root arg result))) @@ -1030,15 +1024,7 @@ command-line option processing with 'parse-command-line'." (with-store/maybe store (with-status-verbosity (assoc-ref opts 'verbosity) (define manifest-from-opts - (options/resolve-packages - store - ;; For an FHS-container, add the (hidden) package glibc-for-fhs - ;; which uses the global cache at /etc/ld.so.cache. - (if emulate-fhs? - (alist-cons 'expression - '(ad-hoc-package "(@@ (gnu packages base) glibc-for-fhs)") - opts) - opts))) + (options/resolve-packages store opts)) (define manifest (if profile diff --git a/guix/scripts/shell.scm b/guix/scripts/shell.scm index c115a00320..a2836629ad 100644 --- a/guix/scripts/shell.scm +++ b/guix/scripts/shell.scm @@ -68,6 +68,9 @@ interactive shell in that environment.\n")) --rebuild-cache rebuild cached environment, if any")) (display (G_ " --export-manifest print a manifest for the given options")) + (display (G_ " + -F, --emulate-fhs for containers, emulate the Filesystem Hierarchy + Standard (FHS)")) (show-environment-options-help) (newline) @@ -136,7 +139,20 @@ interactive shell in that environment.\n")) (alist-cons 'explicit-loading? #t result))) (option '("rebuild-cache") #f #f (lambda (opt name arg result) - (alist-cons 'rebuild-cache? #t result)))) + (alist-cons 'rebuild-cache? #t result))) + + (option '(#\F "emulate-fhs") #f #f + (lambda (opt name arg result) + (let ((result + ;; For an FHS-container, add the (hidden) + ;; package glibc-for-fhs which uses the global + ;; cache at /etc/ld.so.cache. + (alist-cons + 'expression + '(ad-hoc-package + "(@@ (gnu packages base) glibc-for-fhs)") + result))) + (alist-cons 'emulate-fhs? #t result))))) (filter-map (lambda (opt) (and (not (any (lambda (name) (member name to-remove)) |