summaryrefslogtreecommitdiff
path: root/guix/scripts/shell.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-10-30 16:35:06 +0200
committerLudovic Courtès <ludo@gnu.org>2021-10-30 19:12:40 +0200
commit98173af5222ab5e879e44ba9521dec5416ba8c60 (patch)
tree5dbe15aefc74edd98223c6d06bd3b9eeb43c3a58 /guix/scripts/shell.scm
parentbcce83c7857d226a053a8563fc4e326a47fca473 (diff)
downloadguix-patches-98173af5222ab5e879e44ba9521dec5416ba8c60.tar
guix-patches-98173af5222ab5e879e44ba9521dec5416ba8c60.tar.gz
shell: Error out when an unauthorized guix.scm/manifest.scm is found.
The previous behavior was confusing: a warning would be printed and 'guix shell' would go on starting an empty environment. Reported by Tobias Geerinckx-Rice <me@tobias.gr>. * guix/scripts/shell.scm (auto-detect-manifest): Change "not loading" case from warning to error. * tests/guix-shell.sh: Adjust accordingly.
Diffstat (limited to 'guix/scripts/shell.scm')
-rw-r--r--guix/scripts/shell.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/scripts/shell.scm b/guix/scripts/shell.scm
index c7eba429d5..5749485a44 100644
--- a/guix/scripts/shell.scm
+++ b/guix/scripts/shell.scm
@@ -283,8 +283,9 @@ Return the modified OPTS."
("guix.scm" (alist-cons 'load `(package ,file) opts))
("manifest.scm" (alist-cons 'manifest file opts))))
(begin
- (warning (G_ "not loading '~a' because not authorized to do so~%")
- file)
+ (report-error
+ (G_ "not loading '~a' because not authorized to do so~%")
+ file)
(display-hint (format #f (G_ "To allow automatic loading of
@file{~a} when running @command{guix shell}, you must explicitly authorize its
directory, like so:
@@ -295,7 +296,7 @@ echo ~a >> ~a
file
(dirname file)
(authorized-directory-file)))
- opts))))))
+ (exit 1)))))))
;;;