guix system: search: Display all provision names as 'shepherdnames'.

* guix/scripts/system/search.scm (service-type-shepherd-names): Append
provision lists together instead of returning a list of provision cars.
This commit is contained in:
Clément Lassieur 2018-05-01 01:11:31 +02:00
parent 6a65b70145
commit bb6f94c71e
No known key found for this signature in database
GPG Key ID: 89F96D4808F359C7
1 changed files with 3 additions and 4 deletions

View File

@ -1,5 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -59,10 +60,8 @@ provided TYPE has a default value."
(define (service-type-shepherd-names type)
"Return the default names of Shepherd services created for TYPE."
(match (map shepherd-service-provision
(service-type-default-shepherd-services type))
(((names . _) ...)
names)))
(append-map shepherd-service-provision
(service-type-default-shepherd-services type)))
(define* (service-type->recutils type port
#:optional (width (%text-width))