module Propellor.Property.Service where
import Propellor
import Utility.SafeCommand
type ServiceName = String
running :: ServiceName -> Property
running = signaled "start" "running"
restarted :: ServiceName -> Property
restarted = signaled "restart" "restarted"
reloaded :: ServiceName -> Property
reloaded = signaled "reload" "reloaded"
signaled :: String -> Desc -> ServiceName -> Property
signaled cmd desc svc = property (desc ++ " " ++ svc) $ do
void $ ensureProperty $
scriptProperty ["service " ++ shellEscape svc ++ " " ++ cmd ++ " >/dev/null 2>&1 || true"]
return NoChange