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
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))