diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-03-18 14:46:00 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-03-18 16:03:33 +0100 |
| commit | 322707bc7fd4a0dc82a314529ab2bda90bb2ce90 (patch) | |
| tree | 9bab436bb649445243a00d9741bc44910cbb151a | |
| parent | 25261cbf96a3bf58abc6e836d71bdabe9154a83c (diff) | |
| download | guix-322707bc7fd4a0dc82a314529ab2bda90bb2ce90.tar.gz | |
guix system: Call 'export-graph' with the right port argument.
* guix/scripts/system.scm (export-extension-graph) (export-shepherd-graph): Honor PORT.
| -rw-r--r-- | guix/scripts/system.scm | 4 |
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))) |