summaryrefslogtreecommitdiff
path: root/Propellor/Property/Cmd.hs
diff options
context:
space:
mode:
authorJoey Hess2014-04-01 14:08:35 -0400
committerJoey Hess2014-04-01 14:08:35 -0400
commit407f1b27fcf619b79b30ba89252f5a16df00f27f (patch)
treeb1a311b816755ad138eef784e47ca2ce49db2665 /Propellor/Property/Cmd.hs
parent1dd454ebfaadcf906a96dce6c0519abb6ddcbbbc (diff)
description
Diffstat (limited to 'Propellor/Property/Cmd.hs')
-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)