diff options
Diffstat (limited to 'guix/scripts/system.scm')
| -rw-r--r-- | guix/scripts/system.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index 3f368ca55f..b0f8be74b0 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -313,17 +313,17 @@ list of services." (edges (lift1 (service-back-edges services) %store-monad)))) (define (dmd-service-node-label service) - "Return a label for a node representing a <dmd-service>." - (string-join (map symbol->string (dmd-service-provision service)))) + "Return a label for a node representing a <shepherd-service>." + (string-join (map symbol->string (shepherd-service-provision service)))) (define (dmd-service-node-type services) - "Return a node type for SERVICES, a list of <dmd-service>." + "Return a node type for SERVICES, a list of <shepherd-service>." (node-type (name "dmd-service") (description "the dependency graph of dmd services") (identifier (lift1 dmd-service-node-label %store-monad)) (label dmd-service-node-label) - (edges (lift1 (dmd-service-back-edges services) %store-monad)))) + (edges (lift1 (shepherd-service-back-edges services) %store-monad)))) ;;; @@ -475,14 +475,14 @@ building anything." #:reverse-edges? #t))) (define (export-dmd-graph os port) - "Export the graph of dmd services of OS to PORT." - (let* ((services (operating-system-services os)) - (pid1 (fold-services services - #:target-type dmd-root-service-type)) - (dmds (service-parameters pid1)) ;the list of <dmd-service> - (sinks (filter (lambda (service) - (null? (dmd-service-requirement service))) - dmds))) + "Export the graph of shepherd services of OS to PORT." + (let* ((services (operating-system-services os)) + (pid1 (fold-services services + #:target-type shepherd-root-service-type)) + (shepherds (service-parameters pid1)) ;list of <shepherd-service> + (sinks (filter (lambda (service) + (null? (shepherd-service-requirement service))) + shepherds))) (export-graph sinks (current-output-port) #:node-type (dmd-service-node-type dmds) #:reverse-edges? #t))) |