02/03: gnu: system: Only build module-database when os has modules.

[guix-commits]

janneke pushed a commit to branch wip-hurd
in repository guix.

commit 0db3503bfcf83f08ee6919f615526a4474253b10
Author: Jan Nieuwenhuizen <address@hidden>
AuthorDate: Sun Mar 29 22:33:21 2020 +0200

    gnu: system: Only build module-database when os has modules.
    
    This allows building OS base entries for the Hurd.
    
    * gnu/system.scm (operating-system-directory-base-entries): Do not add hook 
if
    OS has no modules.
---
 gnu/system.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/system.scm b/gnu/system.scm
index 7ea2c85..b9ee81e 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -486,7 +486,9 @@ value of the SYSTEM-SERVICE-TYPE service."
                           (profile-derivation
                            (packages->manifest
                             (cons kernel modules))
-                           #:hooks (list linux-module-database)))
+                           #:hooks (if (pair? (operating-system-initrd-modules 
os))
+                                       (list linux-module-database)
+                                       '())))
                          (initrd -> (operating-system-initrd-file os))
                          (params    (operating-system-boot-parameters-file 
os)))
       (return `(("kernel" ,kernel)