From 834a05e25a5844ff3aec4e4acecf00cc762d6545 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 8 Dec 2014 01:22:29 -0400 Subject: refactor --- src/Propellor/Property/Service.hs | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) (limited to 'src/Propellor/Property/Service.hs') diff --git a/src/Propellor/Property/Service.hs b/src/Propellor/Property/Service.hs index 14e769d0..93e959c6 100644 --- a/src/Propellor/Property/Service.hs +++ b/src/Propellor/Property/Service.hs @@ -13,19 +13,16 @@ type ServiceName = String -- we can do is try to start the service, and if it fails, assume -- 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 +running = signaled "start" "running" restarted :: ServiceName -> Property -restarted svc = property ("restarted " ++ svc) $ do - void $ ensureProperty $ - scriptProperty ["service " ++ shellEscape svc ++ " restart >/dev/null 2>&1 || true"] - return NoChange +restarted = signaled "restart" "restarted" reloaded :: ServiceName -> Property -reloaded svc = property ("reloaded " ++ svc) $ do +reloaded = signaled "reload" "reloaded" + +signaled :: String -> Desc -> ServiceName -> Property +signaled cmd desc svc = property (desc ++ " " ++ svc) $ do void $ ensureProperty $ - scriptProperty ["service " ++ shellEscape svc ++ " reload >/dev/null 2>&1 || true"] + scriptProperty ["service " ++ shellEscape svc ++ " " ++ cmd ++ " >/dev/null 2>&1 || true"] return NoChange -- cgit v1.2.3