From 3035b50f28c1bcbc0a2bb09457a69ea9c06d69e0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 22 May 2014 21:57:39 +0200 Subject: [PATCH] linux-initrd: Build /dev/loop* nodes. * guix/build/linux-initrd.scm (make-essential-device-nodes): Build /dev/loop[0-7]. --- guix/build/linux-initrd.scm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/guix/build/linux-initrd.scm b/guix/build/linux-initrd.scm index 8db9f02caf..5be3c1ac2a 100644 --- a/guix/build/linux-initrd.scm +++ b/guix/build/linux-initrd.scm @@ -168,6 +168,14 @@ Return the value associated with OPTION, or #f on failure." (symlink "/proc/self/fd/1" (scope "dev/stdout")) (symlink "/proc/self/fd/2" (scope "dev/stderr")) + ;; Loopback devices. + (let loop ((i 0)) + (when (< i 8) + (mknod (scope (string-append "dev/loop" (number->string i))) + 'block-special #o660 + (device-number 7 i)) + (loop (+ 1 i)))) + ;; File systems in user space (FUSE). (mknod (scope "dev/fuse") 'char-special #o666 (device-number 10 229)))