diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2021-06-21 13:57:09 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2021-06-23 03:01:49 +0200 |
| commit | ed44e62636873d2b97eff06be70799a0f679bb2b (patch) | |
| tree | 26fd6c932c15612284d2fd65af5faa9ee655da30 /gnu/installer | |
| parent | e254287b0c22fc89566bd08207dc72f4f8c9972d (diff) | |
| download | guix-ed44e62636873d2b97eff06be70799a0f679bb2b.tar guix-ed44e62636873d2b97eff06be70799a0f679bb2b.tar.gz | |
installer: Remove unused procedure.
NETWORKING-SYSTEM-SERVICE? was obsoleted in commit
2e55f37c0c8fdfbc413edff61490161648a78dcc.
* gnu/installer/services.scm (networking-system-service?): Remove it.
Diffstat (limited to 'gnu/installer')
| -rw-r--r-- | gnu/installer/services.scm | 9 |
1 files changed, 2 insertions, 7 deletions
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 @@ system-service-packages desktop-system-service? - networking-system-service? %system-services system-services->configuration)) @@ -38,7 +37,7 @@ 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 @@ (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 @@ (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 @@ "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)) |