guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[shepherd] 02/05: shepherd: Remove undocumented 'dmd-status' command.


From: Ludovic Courtès
Subject: [shepherd] 02/05: shepherd: Remove undocumented 'dmd-status' command.
Date: Tue, 12 Jan 2016 22:28:27 +0000

civodul pushed a commit to branch master
in repository shepherd.

commit 4c70ac307e32d5737a318c6bccf6941f730e8511
Author: Ludovic Courtès <address@hidden>
Date:   Tue Jan 12 22:17:52 2016 +0100

    shepherd: Remove undocumented 'dmd-status' command.
    
    * modules/shepherd.scm (process-command): Remove 'dmd-status' case.
---
 modules/shepherd.scm |   10 +---------
 1 files changed, 1 insertions(+), 9 deletions(-)

diff --git a/modules/shepherd.scm b/modules/shepherd.scm
index a1b65d2..290f691 100644
--- a/modules/shepherd.scm
+++ b/modules/shepherd.scm
@@ -232,15 +232,7 @@
            ((start) (apply start service-symbol args))
            ((stop) (apply stop service-symbol args))
            ((enforce) (apply enforce service-symbol args))
-           ((dmd-status)
-            (if (not (null? args))
-                (local-output "Too many arguments.")
-                (let ((target-services (lookup-running-or-providing
-                                        service-symbol)))
-                  (if (null? target-services)
-                      (handle-unknown service-symbol 'action the-action args)
-                      (for-each dmd-status
-                                target-services)))))
+
            ;; Actions which have the semantics of `action' are
            ;; handled there.
            (else (apply action service-symbol the-action args))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]