diff options
| -rw-r--r-- | gnu/packages/linux.scm | 19 | ||||
| -rw-r--r-- | gnu/system/linux-container.scm | 2 |
2 files changed, 21 insertions, 0 deletions
diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index 707253a946e..c9fe2c6a744 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm | |||
| @@ -1231,6 +1231,25 @@ Linux kernel. It has been modified to remove all non-free binary blobs.") | |||
| 1231 | ;;; Specialized kernel variants. | 1231 | ;;; Specialized kernel variants. |
| 1232 | ;;; | 1232 | ;;; |
| 1233 | 1233 | ||
| 1234 | (define-public %dummy-linux-kernel-for-container | ||
| 1235 | (hidden-package | ||
| 1236 | (package | ||
| 1237 | (name "linux-dummy") | ||
| 1238 | (version "0.0.0") | ||
| 1239 | (source #f) | ||
| 1240 | (build-system copy-build-system) | ||
| 1241 | (arguments | ||
| 1242 | (list #:phases | ||
| 1243 | #~(modify-phases %standard-phases | ||
| 1244 | (delete 'unpack) | ||
| 1245 | (replace 'install | ||
| 1246 | (lambda _ | ||
| 1247 | (mkdir-p #$output)))))) | ||
| 1248 | (home-page "") | ||
| 1249 | (synopsis "Dummy Linux kernel for @command{guix system container}") | ||
| 1250 | (description "") | ||
| 1251 | (license #f)))) | ||
| 1252 | |||
| 1234 | (define-public linux-libre-arm-generic | 1253 | (define-public linux-libre-arm-generic |
| 1235 | (make-linux-libre* linux-libre-version | 1254 | (make-linux-libre* linux-libre-version |
| 1236 | linux-libre-gnu-revision | 1255 | linux-libre-gnu-revision |
diff --git a/gnu/system/linux-container.scm b/gnu/system/linux-container.scm index e9be2c9d8a4..23298638b7a 100644 --- a/gnu/system/linux-container.scm +++ b/gnu/system/linux-container.scm | |||
| @@ -40,6 +40,7 @@ | |||
| 40 | #:use-module (gnu services shepherd) | 40 | #:use-module (gnu services shepherd) |
| 41 | #:use-module (gnu system) | 41 | #:use-module (gnu system) |
| 42 | #:use-module (gnu system file-systems) | 42 | #:use-module (gnu system file-systems) |
| 43 | #:use-module (gnu packages linux) | ||
| 43 | #:export (system-container | 44 | #:export (system-container |
| 44 | containerized-operating-system | 45 | containerized-operating-system |
| 45 | container-script | 46 | container-script |
| @@ -152,6 +153,7 @@ containerized OS. EXTRA-FILE-SYSTEMS is a list of file systems to add to OS." | |||
| 152 | (define os-with-base-essential-services | 153 | (define os-with-base-essential-services |
| 153 | (operating-system | 154 | (operating-system |
| 154 | (inherit os) | 155 | (inherit os) |
| 156 | (kernel %dummy-linux-kernel-for-container) | ||
| 155 | (swap-devices '()) ; disable swap | 157 | (swap-devices '()) ; disable swap |
| 156 | (services | 158 | (services |
| 157 | (append services-to-add | 159 | (append services-to-add |
