summaryrefslogtreecommitdiff
path: root/Propellor/Property/Service.hs
diff options
context:
space:
mode:
authorJoey Hess2014-04-10 01:46:33 -0400
committerJoey Hess2014-04-10 01:46:33 -0400
commitd1fdace57e9d8c34dba5cc21726e2fa4c6a70492 (patch)
tree81f2103a7e75a06497417baa4890c6cddcf808d4 /Propellor/Property/Service.hs
parentd5c3a2f1dfd3cb620e7f2c736965a264964dad7c (diff)
propellor spin
Diffstat (limited to 'Propellor/Property/Service.hs')
-rw-r--r--Propellor/Property/Service.hs12
1 files changed, 9 insertions, 3 deletions
diff --git a/Propellor/Property/Service.hs b/Propellor/Property/Service.hs
index 2fb3e0c6..c6498e57 100644
--- a/Propellor/Property/Service.hs
+++ b/Propellor/Property/Service.hs
@@ -14,12 +14,18 @@ type ServiceName = String
-- this means it's already running.
running :: ServiceName -> Property
running svc = Property ("running " ++ svc) $ do
- void $ ensureProperty $
- scriptProperty ["service " ++ shellEscape svc ++ " start >/dev/null 2>&1 || true"]
- return NoChange
+ void $ ensureProperty $
+ scriptProperty ["service " ++ shellEscape svc ++ " start >/dev/null 2>&1 || true"]
+ return NoChange
restarted :: ServiceName -> Property
restarted svc = Property ("restarted " ++ svc) $ do
void $ ensureProperty $
scriptProperty ["service " ++ shellEscape svc ++ " restart >/dev/null 2>&1 || true"]
return NoChange
+
+reloaded :: ServiceName -> Property
+reloaded svc = Property ("reloaded " ++ svc) $ do
+ void $ ensureProperty $
+ scriptProperty ["service " ++ shellEscape svc ++ " reload >/dev/null 2>&1 || true"]
+ return NoChange