summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Propellor/Property/Cmd.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/Propellor/Property/Cmd.hs b/Propellor/Property/Cmd.hs
index 3e496b82..09db6500 100644
--- a/Propellor/Property/Cmd.hs
+++ b/Propellor/Property/Cmd.hs
@@ -45,3 +45,4 @@ scriptProperty script = cmdProperty "sh" ["-c", shellcmd]
serviceRunning :: String -> Property
serviceRunning svc = scriptProperty
["service " ++ shellEscape svc ++ " start >/dev/null 2>&1 || true"]
+ `describe` ("running " ++ svc)