01/01: install: Add service for the loopback device.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 264967c883d32606c18b378f717c303e7490c942
Author: Ludovic Courtès <address@hidden>
Date:   Fri Jul 20 17:57:36 2018 +0200

    install: Add service for the loopback device.
    
    Lack of a loopback device prevented the system from building starting
    from commit 363c946b36a77aa6f0e60b8c93a171d2e649164f.
    
    * gnu/system/install.scm (%installation-services): Add
    'static-networking-service-type' instance for 'lo'.
---
 gnu/system/install.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index 6a3ae19..95661dc 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -298,6 +298,13 @@ You have been warned.  Thanks for being so brave.\x1b[0m
                    `(("/bin/sh" ,(file-append (canonical-package bash)
                                               "/bin/sh"))))
 
+          ;; Loopback device, needed by OpenSSH notably.
+          (service static-networking-service-type
+                   (list (static-networking (interface "lo")
+                                            (ip "127.0.0.1")
+                                            (requirement '())
+                                            (provision '(loopback)))))
+
           ;; Keep a reference to BARE-BONES-OS to make sure it can be
           ;; installed without downloading/building anything.  Also keep the
           ;; things needed by 'profile-derivation' to minimize the amount of