From ed44e62636873d2b97eff06be70799a0f679bb2b Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Mon, 21 Jun 2021 13:57:09 +0200
Subject: installer: Remove unused procedure.

NETWORKING-SYSTEM-SERVICE? was obsoleted in commit
2e55f37c0c8fdfbc413edff61490161648a78dcc.

* gnu/installer/services.scm (networking-system-service?): Remove it.
---
 gnu/installer/services.scm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'gnu/installer')

diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm
index ec5ea30594..b0007218ae 100644
--- a/gnu/installer/services.scm
+++ b/gnu/installer/services.scm
@@ -29,7 +29,6 @@ (define-module (gnu installer services)
             system-service-packages
 
             desktop-system-service?
-            networking-system-service?
 
             %system-services
             system-services->configuration))
@@ -38,7 +37,7 @@ (define-record-type* <system-service>
   system-service make-system-service
   system-service?
   (name            system-service-name)           ;string
-  (type            system-service-type)           ;'desktop | 'networking
+  (type            system-service-type)           ;'desktop|'networking|…
   (recommended?    system-service-recommended?    ;Boolean
                    (default #f))
   (snippet         system-service-snippet         ;list of sexps
@@ -46,7 +45,6 @@ (define-record-type* <system-service>
   (packages        system-service-packages        ;list of sexps
                    (default '())))
 
-;; This is the list of desktop environments supported as services.
 (define %system-services
   (let-syntax ((desktop-environment (syntax-rules ()
                                       ((_ fields ...)
@@ -56,6 +54,7 @@ (define %system-services
                (G_ (syntax-rules ()               ;for xgettext
                      ((_ str) str))))
     (list
+     ;; This is the list of desktop environments supported as services.
      (desktop-environment
       (name "GNOME")
       (snippet '((service gnome-desktop-service-type))))
@@ -124,10 +123,6 @@ (define (desktop-system-service? service)
   "Return true if SERVICE is a desktop environment service."
   (eq? 'desktop (system-service-type service)))
 
-(define (networking-system-service? service)
-  "Return true if SERVICE is a desktop environment service."
-  (eq? 'networking (system-service-type service)))
-
 (define (system-services->configuration services)
   "Return the configuration field for SERVICES."
   (let* ((snippets (append-map system-service-snippet services))
-- 
cgit v1.2.3