ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-16 19:57:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

guix system: Call 'export-graph' with the right port argument.

Browse source 
* guix/scripts/system.scm (export-extension-graph)
(export-shepherd-graph): Honor PORT.
This commit is contained in:
Ludovic Courtès 2022-03-18 14:46:00 +01:00
parent 25261cbf96
commit 322707bc7f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/scripts/system.scm
View file

@ -897,7 +897,7 @@ (define* (export-extension-graph os port
(system (find (lambda (service) (system (find (lambda (service)
(eq? (service-kind service) system-service-type)) (eq? (service-kind service) system-service-type))
services))) services)))
(export-graph (list system) (current-output-port) (export-graph (list system) port
#:backend backend #:backend backend
#:node-type (service-node-type services) #:node-type (service-node-type services)
#:reverse-edges? #t))) #:reverse-edges? #t)))
@ -913,7 +913,7 @@ (define* (export-shepherd-graph os port
(sinks (filter (lambda (service) (sinks (filter (lambda (service)
(null? (shepherd-service-requirement service))) (null? (shepherd-service-requirement service)))
shepherds))) shepherds)))
(export-graph sinks (current-output-port) (export-graph sinks port
#:backend backend #:backend backend
#:node-type (shepherd-service-node-type shepherds) #:node-type (shepherd-service-node-type shepherds)
#:reverse-edges? #t))) #:reverse-edges? #t)))