[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#45592] kernel-module-configuration-service for configuring kernel p
From: |
raid5atemyhomework |
Subject: |
[bug#45592] kernel-module-configuration-service for configuring kernel parameters |
Date: |
Thu, 07 Jan 2021 09:16:23 +0000 |
Hi Danny and Brice,
Cross-posting to 42193 as well.
> > > See also https://issues.guix.info/issue/42193 for an earlier attempt
> > > (which
> > > is already very far--but it has a bug somewhere).
I think what 42193 WIP 2/6 is missing is this hunk from my own 45592 PATCH 1/4:
```diff
diff --git a/gnu/system.scm b/gnu/system.scm
index c284a18379..5c530f176e 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm@@ -625,26 +616,10 @@ possible (that is if there's a LINUX
keyword argument in the build system)."
"Return the basic entries of the 'system' directory of OS for use as the
value of the SYSTEM-SERVICE-TYPE service."
(let* ((locale (operating-system-locale-directory os))
- (kernel (operating-system-kernel os))
(hurd (operating-system-hurd os))
- (modules (operating-system-kernel-loadable-modules os))
- (kernel (if hurd
- kernel
- (profile
- (content (packages->manifest
- (cons kernel
- (map (lambda (module)
- (if (package? module)
- (package-for-kernel kernel
- module)
- module))
- modules))))
- (hooks (list linux-module-database)))))
(initrd (and (not hurd) (operating-system-initrd-file os)))
(params (operating-system-boot-parameters-file os)))
- `(("kernel" ,kernel)
- ,@(if hurd `(("hurd" ,hurd)) '())
- ("parameters" ,params)
+ `(("parameters" ,params)
,@(if initrd `(("initrd" ,initrd)) '())
("locale" ,locale)))) ;used by libc
```
I hope we can progress this towards a workable ZFS-on-Guix.
Thanks
raid5atemyhomework