[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
08/10: gnu: system: Do not activate firmware when activating a container
From: |
David Thompson |
Subject: |
08/10: gnu: system: Do not activate firmware when activating a container. |
Date: |
Mon, 08 Jun 2015 14:04:30 +0000 |
davexunit pushed a commit to branch wip-container
in repository guix.
commit 270c2bdda356afec0324728709c7d4447f857d4f
Author: David Thompson <address@hidden>
Date: Mon Jun 8 08:59:51 2015 -0400
gnu: system: Do not activate firmware when activating a container.
* gnu/system.scm (operating-system-activation-script): Add #:container?
keyword argument. Don't call 'activate-firmware' when 'container?' is #t.
---
gnu/system.scm | 11 +++++++----
1 files changed, 7 insertions(+), 4 deletions(-)
diff --git a/gnu/system.scm b/gnu/system.scm
index 92ed454..8346a38 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -682,7 +682,7 @@ variable is not set---hence the need for this wrapper."
(apply execl #$modprobe
(cons #$modprobe (cdr (command-line))))))))
-(define (operating-system-activation-script os)
+(define* (operating-system-activation-script os #:key container?)
"Return the activation script for OS---i.e., the code that \"activates\" the
stateful part of OS, including user accounts and groups, special directories,
etc."
@@ -755,9 +755,12 @@ etc."
;; Tell the kernel to use our 'modprobe' command.
(activate-modprobe #$modprobe)
- ;; Tell the kernel where firmware is.
- (activate-firmware
- (string-append #$firmware "/lib/firmware"))
+ ;; Tell the kernel where firmware is, unless we are
+ ;; activating a container.
+ #$@(if container?
+ #~()
+ #~(activate-firmware
+ (string-append #$firmware "/lib/firmware")))
;; Let users debug their own processes!
(activate-ptrace-attach)
- branch wip-container created (now 3e19b4d), David Thompson, 2015/06/08
- 01/10: build: syscalls: Add clone syscall wrapper., David Thompson, 2015/06/08
- 02/10: build: syscalls: Add additional mount flags., David Thompson, 2015/06/08
- 05/10: fixup linux container module., David Thompson, 2015/06/08
- 06/10: fixup linux container module., David Thompson, 2015/06/08
- 03/10: gnu: Add Linux container module., David Thompson, 2015/06/08
- 07/10: gnu: Add Linux container system script., David Thompson, 2015/06/08
- 04/10: build: Add setns syscall wrapper., David Thompson, 2015/06/08
- 09/10: gnu: system: Add operating-system-derivation/container., David Thompson, 2015/06/08
- 08/10: gnu: system: Do not activate firmware when activating a container.,
David Thompson <=
- 10/10: scripts: system: Add 'container' subcommand., David Thompson, 2015/06/08