diff --git a/gnu/system/install.scm b/gnu/system/install.scm index 73a013bed0..203a085bcd 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm @@ -276,6 +276,7 @@ the user's target storage device rather than on the RAM disk." (define %configuration-template-service (service configuration-template-service-type #t)) + (define %nscd-minimal-caches ;; Minimal in-memory caching policy for nscd. (list (nscd-cache (database 'hosts) @@ -295,21 +296,18 @@ the user's target storage device rather than on the RAM disk." ;; support Kernel Mode Setting. Otherwise kmscon is missing /dev/fb0. (define (uvesafb-shepherd-service _) (list (shepherd-service - (documentation "Load uvesafb.") + (documentation "Load the uvesafb kernel module.") (provision '(uvesafb)) (requirement '(file-systems)) - (start (with-imported-modules (source-module-closure '((guix utils))) - #~(begin - (use-modules (guix utils)) - (lambda () - ;; uvesafb is only supported on x86 and x86_64. - (if (member (%current-system) - '("x86_64-linux" "i686-linux")) - (invoke #+(file-append kmod "/bin/modprobe") - "uvesafb" - (string-append "v86d=" #$v86d "/sbin/v86d") - "mode_option=1024x768") - #t))))) + (start #~(lambda () + ;; uvesafb is only supported on x86 and x86_64. + (or (not (and (string-suffix? "linux-gnu" %host-type) + (or (string-prefix? "x86_64" %host-type) + (string-prefix? "i686" %host-type)))) + (invoke #+(file-append kmod "/bin/modprobe") + "uvesafb" + (string-append "v86d=" #$v86d "/sbin/v86d") + "mode_option=1024x768")))) (respawn? #f) (one-shot? #t)))) @@ -319,11 +317,10 @@ the user's target storage device rather than on the RAM disk." (extensions (list (service-extension shepherd-root-service-type uvesafb-shepherd-service))) + (description + "Load the @code{uvesafb} kernel module with the right options.") (default-value #t))) -(define %uvesafb-service - (service uvesafb-service-type)) - (define %installation-services ;; List of services of the installation system. (let ((motd (plain-file "motd" " @@ -451,7 +448,7 @@ Access documentation at any time by pressing Alt-F2.\x1b[0m ;; current AMD GPUs, SiS GPUs, ...) need uvesafb to show the GUI ;; installer. Some may also need a kernel parameter like nomodeset ;; or vga=793, but we leave that for the user to specify in GRUB. - %uvesafb-service))) + (service uvesafb-service-type)))) (define %issue ;; Greeting.