summaryrefslogtreecommitdiff
path: root/guix/scripts
diff options
context:
space:
mode:
Diffstat (limited to 'guix/scripts')
-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)))