02/02: services: guix: Remove dependency on 'lsof'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit a0fea77dbb028c11f1d47813617ce45e38c9e233
Author: Ludovic Courtès <address@hidden>
Date:   Mon Nov 13 11:34:51 2017 +0100

    services: guix: Remove dependency on 'lsof'.
    
    This is a followup to b8f59cdc20e9d83ce63523ef917e95fcee07f134:
    'list-runtime-roots' no longer depends on 'lsof'.
    
    * gnu/services/base.scm (<guix-configuration>)[lsof]: Remove.
    (guix-shepherd-service): Adjust accordingly.
    * doc/guix.texi (Base Services): Adjust accordingly.
    * gnu/system.scm (%base-packages): Remove LSOF.
---
 doc/guix.texi         |  3 ---
 gnu/services/base.scm | 10 ++--------
 gnu/system.scm        |  2 --
 3 files changed, 2 insertions(+), 13 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 0bc2be1..098ff5e 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -9830,9 +9830,6 @@ List of extra command-line options for 
@command{guix-daemon}.
 File where @command{guix-daemon}'s standard output and standard error
 are written.
 
address@hidden @code{lsof} (default: @var{lsof})
-The lsof package to use.
-
 @item @code{http-proxy} (default: @code{#f})
 The HTTP proxy used for downloading fixed-output derivations and
 substitutes.
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 2ba655d..06b2a7d 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -42,7 +42,6 @@
   #:use-module (gnu packages bash)
   #:use-module (gnu packages package-management)
   #:use-module (gnu packages linux)
-  #:use-module (gnu packages lsof)
   #:use-module (gnu packages terminals)
   #:use-module ((gnu build file-systems)
                 #:select (mount-flags->bit-mask))
@@ -119,7 +118,6 @@
             guix-configuration-substitute-urls
             guix-configuration-extra-options
             guix-configuration-log-file
-            guix-configuration-lsof
 
             guix-service
             guix-service-type
@@ -1374,8 +1372,6 @@ failed to register hydra.gnu.org public key: ~a~%" 
status))))))))
                     (default '()))
   (log-file         guix-configuration-log-file   ;string
                     (default "/var/log/guix-daemon.log"))
-  (lsof             guix-configuration-lsof       ;<package>
-                    (default lsof))
   (http-proxy       guix-http-proxy               ;string | #f
                     (default #f))
   (tmpdir           guix-tmpdir                   ;string | #f
@@ -1392,7 +1388,7 @@ failed to register hydra.gnu.org public key: ~a~%" 
status))))))))
                              use-substitutes? substitute-urls
                              max-silent-time timeout
                              extra-options
-                             log-file lsof http-proxy tmpdir)
+                             log-file http-proxy tmpdir)
      (list (shepherd-service
             (documentation "Run the Guix daemon.")
             (provision '(guix-daemon))
@@ -1409,10 +1405,8 @@ failed to register hydra.gnu.org public key: ~a~%" 
status))))))))
                       "--substitute-urls" #$(string-join substitute-urls)
                       address@hidden)
 
-                ;; Add 'lsof' (for the GC) to the daemon's $PATH.
                 #:environment-variables
-                (list (string-append "PATH=" #$lsof "/bin")
-                      #$@(if http-proxy
+                (list #$@(if http-proxy
                              (list (string-append "http_proxy=" http-proxy))
                              '())
                       #$@(if tmpdir
diff --git a/gnu/system.scm b/gnu/system.scm
index ce2c05f..9e05c4b 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -39,7 +39,6 @@
   #:use-module (gnu packages less)
   #:use-module (gnu packages zile)
   #:use-module (gnu packages nano)
-  #:use-module (gnu packages lsof)
   #:use-module (gnu packages gawk)
   #:use-module (gnu packages man)
   #:use-module (gnu packages texinfo)
@@ -509,7 +508,6 @@ explicitly appear in OS."
   ;; Default set of packages globally visible.  It should include anything
   ;; required for basic administrator tasks.
   (cons* procps psmisc which less zile nano
-         lsof                                 ;for Guix's 'list-runtime-roots'
          pciutils usbutils
          util-linux inetutils isc-dhcp
          (@ (gnu packages admin) shadow)          ;for 'passwd'