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

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 322707bc7fd4a0dc82a314529ab2bda90bb2ce90
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Mar 18 14:46:00 2022 +0100

    guix system: Call 'export-graph' with the right port argument.
    
    * guix/scripts/system.scm (export-extension-graph)
    (export-shepherd-graph): Honor PORT.
---
 guix/scripts/system.scm | 4 ++--
 1 file 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)))