me/guix
Archived
1
0
Fork 0
Code Activity

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 @@ Run 'herd status' to view the list of services on your system.\n"))))))
(system (find (lambda (service)
(eq? (service-kind service) system-service-type))
services)))
(export-graph (list system) (current-output-port)
(export-graph (list system) port
#:backend backend
#:node-type (service-node-type services)
#:reverse-edges? #t)))
@ -913,7 +913,7 @@ Run 'herd status' to view the list of services on your system.\n"))))))
(sinks (filter (lambda (service)
(null? (shepherd-service-requirement service)))
shepherds)))
(export-graph sinks (current-output-port)
(export-graph sinks port
#:backend backend
#:node-type (shepherd-service-node-type shepherds)
#:reverse-edges? #t)))