From mboxrd@z Thu Jan 1 00:00:00 1970 From: Danny Milosavljevic Subject: bug#22050: [PATCH v5 2/2] services: base: Use make-static-device-nodes. Date: Thu, 14 Dec 2017 22:25:48 +0100 Message-ID: <20171214212548.655-3-dannym@scratchpost.org> References: <20171214195636.787-1-dannym@scratchpost.org> <20171214212548.655-1-dannym@scratchpost.org> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:36599) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ePb12-0005pg-7n for bug-guix@gnu.org; Thu, 14 Dec 2017 16:26:05 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ePb11-0004wT-Aj for bug-guix@gnu.org; Thu, 14 Dec 2017 16:26:04 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:53743) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1ePb11-0004w3-7b for bug-guix@gnu.org; Thu, 14 Dec 2017 16:26:03 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ePb11-0006BG-1d for bug-guix@gnu.org; Thu, 14 Dec 2017 16:26:03 -0500 Sender: "Debbugs-submit" Resent-Message-ID: In-Reply-To: <20171214212548.655-1-dannym@scratchpost.org> List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org Sender: "bug-Guix" To: 22050@debbugs.gnu.org, ludo@gnu.org * gnu/services/base.scm (udev-shepherd-service): Use make-static-device-nodes. --- gnu/services/base.scm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 291dd6325..34699cdcd 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -1727,6 +1727,14 @@ item of @var{packages}." (setenv "EUDEV_RULES_DIRECTORY" #$(file-append rules "/lib/udev/rules.d")) + (let* ((kernel-release + (utsname:release (uname))) + (linux-module-directory + (getenv "LINUX_MODULE_DIRECTORY")) + (linux-release-module-directory + (string-append linux-module-directory "/" + kernel-release))) + (make-static-device-nodes linux-release-module-directory)) (let ((pid (primitive-fork))) (case pid ((0) @@ -1750,7 +1758,10 @@ item of @var{packages}." ;; When halting the system, 'udev' is actually killed by ;; 'user-processes', i.e., before its own 'stop' method was called. ;; Thus, make sure it is not respawned. - (respawn? #f))))))) + (respawn? #f) + ;; We need additional modules. + (modules `((gnu build linux-boot) + ,@%default-modules)))))))) (define udev-service-type (service-type (name 'udev)