summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-03-18 14:46:00 +0100
committerLudovic Courtès <ludo@gnu.org>2022-03-18 16:03:33 +0100
commit322707bc7fd4a0dc82a314529ab2bda90bb2ce90 (patch)
tree9bab436bb649445243a00d9741bc44910cbb151a /guix
parent25261cbf96a3bf58abc6e836d71bdabe9154a83c (diff)
guix system: Call 'export-graph' with the right port argument.
* guix/scripts/system.scm (export-extension-graph) (export-shepherd-graph): Honor PORT.
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/system.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm
index 55e9b8ba30..067bf999f1 100644
--- a/guix/scripts/system.scm
+++ b/guix/scripts/system.scm
@@ -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)))