From 7115d1ec162b4059b3e8e8f84bd8d5898c1db025 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 14 May 2014 19:41:05 -0400
Subject: moved source code to src

This is to work around OSX's brain-damange regarding filename case
insensitivity.

Avoided moving config.hs, because it's a config file. Put in a symlink to
make build work.
---
 Propellor/Property/Service.hs | 31 -------------------------------
 1 file changed, 31 deletions(-)
 delete mode 100644 Propellor/Property/Service.hs

(limited to 'Propellor/Property/Service.hs')

diff --git a/Propellor/Property/Service.hs b/Propellor/Property/Service.hs
deleted file mode 100644
index 14e769d0..00000000
--- a/Propellor/Property/Service.hs
+++ /dev/null
@@ -1,31 +0,0 @@
-module Propellor.Property.Service where
-
-import Propellor
-import Utility.SafeCommand
-
-type ServiceName = String
-
--- | Ensures that a service is running. Does not ensure that
--- any package providing that service is installed. See
--- Apt.serviceInstalledRunning
---
--- Note that due to the general poor state of init scripts, the best
--- 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
-
-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
-- 
cgit v1.3-2-g0d8e