nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
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 @@ provided TYPE has a default value."
(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))