me/guix
Archived
1
0
Fork 0
Code Activity

installer: Remove unused procedure.

Browse source 
NETWORKING-SYSTEM-SERVICE? was obsoleted in commit
2e55f37c0c.

* gnu/installer/services.scm (networking-system-service?): Remove it.
This commit is contained in:
Tobias Geerinckx-Rice 2021-06-21 13:57:09 +02:00
parent e254287b0c
commit ed44e62636
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 2 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/installer/services.scm
View file

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