diff options
| -rw-r--r-- | guix/scripts/environment.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm index 510cee727f2..ec071402f4c 100644 --- a/guix/scripts/environment.scm +++ b/guix/scripts/environment.scm | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; GNU Guix --- Functional package management for GNU | 1 | ;;; GNU Guix --- Functional package management for GNU |
| 2 | ;;; Copyright © 2014, 2015, 2018 David Thompson <davet@gnu.org> | 2 | ;;; Copyright © 2014, 2015, 2018 David Thompson <davet@gnu.org> |
| 3 | ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org> | 3 | ;;; Copyright © 2015-2022 Ludovic Courtès <ludo@gnu.org> |
| 4 | ;;; Copyright © 2018 Mike Gerwitz <mtg@gnu.org> | 4 | ;;; Copyright © 2018 Mike Gerwitz <mtg@gnu.org> |
| 5 | ;;; | 5 | ;;; |
| 6 | ;;; This file is part of GNU Guix. | 6 | ;;; This file is part of GNU Guix. |
| @@ -975,7 +975,10 @@ command-line option processing with 'parse-command-line'." | |||
| 975 | 975 | ||
| 976 | (mwhen (assoc-ref opts 'check?) | 976 | (mwhen (assoc-ref opts 'check?) |
| 977 | (return | 977 | (return |
| 978 | (validate-child-shell-environment profile manifest))) | 978 | (if container? |
| 979 | (warning (G_ "'--check' is unnecessary \ | ||
| 980 | when using '--container'; doing nothing~%")) | ||
| 981 | (validate-child-shell-environment profile manifest)))) | ||
| 979 | 982 | ||
| 980 | (cond | 983 | (cond |
| 981 | ((assoc-ref opts 'search-paths) | 984 | ((assoc-ref opts 'search-paths) |
