ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 14:28:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/scripts/system/search.scm
View file

@ -1,5 +1,6 @@
;;; 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)
(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))