aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2015-11-03 09:02:10 -0500
committerDavid Thompson <dthompson2@worcester.edu>2015-11-03 11:41:04 -0500
commit00bfa7ea25b4612d730b057308b304d0131bee03 (patch)
tree94ba11729f2f8108532bf69a5b2da3adff7bab02
parentb7d48312bbfc7bdbb3895eb10edc352eeb555b98 (diff)
downloadguix-00bfa7ea25b4612d730b057308b304d0131bee03.tar
guix-00bfa7ea25b4612d730b057308b304d0131bee03.tar.gz
scripts: environment: Display friendly container error messages.
* guix/scripts/environment.scm (assert-container-features): New procedure. (guix-environment): Use it.
-rw-r--r--guix/scripts/environment.scm18
1 files changed, 18 insertions, 0 deletions
diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index 45b54a9297..97410f4e09 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -437,6 +437,21 @@ Otherwise, return the derivation for the Bash package."
opts
(alist-cons 'exec command opts)))))
+(define (assert-container-features)
+ "Check if containers can be created and exit with an informative error
+message if any test fails."
+ (unless (user-namespace-supported?)
+ (report-error (_ "cannot create container: user namespaces unavailable\n"))
+ (leave (_ "is your kernel version < 3.10?\n")))
+
+ (unless (unprivileged-user-namespace-supported?)
+ (report-error (_ "cannot create container: unprivileged user cannot create user namespaces\n"))
+ (leave (_ "please set /proc/sys/kernel/unprivileged_userns_clone to \"1\"\n")))
+
+ (unless (setgroups-supported?)
+ (report-error (_ "cannot create container: /proc/self/setgroups does not exist\n"))
+ (leave (_ "is your kernel version < 3.19?\n"))))
+
;; Entry point.
(define (guix-environment . args)
(with-error-handling
@@ -474,6 +489,9 @@ Otherwise, return the derivation for the Bash package."
'()))
inputs))
eq?)))
+
+ (when container? (assert-container-features))
+
(with-store store
(run-with-store store
(mlet* %store-monad ((inputs (lower-inputs