Skip to content
Snippets Groups Projects
Unverified Commit bb6f94c7 authored by Clément Lassieur's avatar Clément Lassieur
Browse files

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.
parent 6a65b701
No related branches found
No related tags found
No related merge requests found
;;; 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 @@ (define (service-type-default-shepherd-services type)
(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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment