From 8a7330fd76e2213a8d93a01e48521a4639690e81 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 13 Sep 2014 10:54:47 +0200
Subject: [PATCH] system: Use eudev instead of udev by default.
* gnu/system.scm (%base-packages): Change 'udev' to 'eudev'.
* gnu/services/base.scm (udev-service): Change #:udev to default to
'eudev'.
---
gnu/services/base.scm | 4 ++--
gnu/system.scm | 2 +-
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 320a58697db..c40bc1a4c2f 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -25,7 +25,7 @@ (define-module (gnu services base)
#:use-module (gnu system linux) ; 'pam-service', etc.
#:use-module (gnu packages admin)
#:use-module ((gnu packages linux)
- #:select (udev kbd e2fsprogs lvm2 fuse alsa-utils))
+ #:select (eudev kbd e2fsprogs lvm2 fuse alsa-utils))
#:use-module ((gnu packages base)
#:select (canonical-package glibc))
#:use-module (gnu packages package-management)
@@ -510,7 +510,7 @@ (define (rules-sub-directory directory)
(guix build utils))
#:local-build? #t))
-(define* (udev-service #:key (udev udev) (rules '()))
+(define* (udev-service #:key (udev eudev) (rules '()))
"Run @var{udev}, which populates the @file{/dev} directory dynamically. Get
extra rules from the packages listed in @var{rules}."
(mlet* %store-monad ((rules (udev-rules-union (cons udev rules)))
diff --git a/gnu/system.scm b/gnu/system.scm
index 25a551667c7..db7b7e7a2f4 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -253,7 +253,7 @@ (define %base-packages
;; Get 'insmod' & co. from kmod, not module-init-tools, since udev
;; already depends on it anyway.
- kmod udev
+ kmod eudev
e2fsprogs kbd
--
GitLab