tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-08-01 20:51:32 +02:00
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
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
guix/scripts/system.scm
+2 -2
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)))