[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[dmd] 01/02: Display the value of the 'running' slot in 'status' command
From: |
Ludovic Courtès |
Subject: |
[dmd] 01/02: Display the value of the 'running' slot in 'status' commands. |
Date: |
Mon, 07 Jul 2014 21:35:20 +0000 |
civodul pushed a commit to branch master
in repository dmd.
commit ac655cb9d43012cb29712e69f86e7fd4b739c173
Author: Ludovic Courtès <address@hidden>
Date: Mon Jul 7 23:10:18 2014 +0200
Display the value of the 'running' slot in 'status' commands.
* modules/dmd/service.scm (dmd-status): When OBJ is running, show the
value of the 'running' slot.
---
modules/dmd/service.scm | 8 +++++---
1 files changed, 5 insertions(+), 3 deletions(-)
diff --git a/modules/dmd/service.scm b/modules/dmd/service.scm
index ffa3a68..9ce2cd9 100644
--- a/modules/dmd/service.scm
+++ b/modules/dmd/service.scm
@@ -402,11 +402,13 @@
(local-output "Status of ~a:"
(canonical-name obj))
(if (running? obj)
- (local-output " It is started.")
- (local-output " It is stopped."))
+ (begin
+ (local-output " It is started.")
+ (local-output " Running value is ~s." (slot-ref obj 'running)))
+ (local-output " It is stopped."))
(if (enabled? obj)
(local-output " It is enabled.")
- (local-output " It is disabled."))
+ (local-output " It is disabled."))
(local-output " Provides ~a." (provided-by obj))
(local-output " Requires ~a." (required-by obj))
(local-output " Conflicts with ~a." (conflicts-with obj))