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