From 380c1b0fd6c25dec3c924b82f1d721aa91a001da Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 30 Mar 2014 23:37:54 -0400
Subject: prepare for hackage

---
 Property/Cmd.hs | 35 -----------------------------------
 1 file changed, 35 deletions(-)
 delete mode 100644 Property/Cmd.hs

(limited to 'Property/Cmd.hs')

diff --git a/Property/Cmd.hs b/Property/Cmd.hs
deleted file mode 100644
index 278d2fb0..00000000
--- a/Property/Cmd.hs
+++ /dev/null
@@ -1,35 +0,0 @@
-module Property.Cmd (
-	cmdProperty,
-	cmdProperty',
-	scriptProperty,
-	module Utility.SafeCommand
-) where
-
-import Control.Applicative
-import Data.List
-
-import Types
-import Utility.Monad
-import Utility.SafeCommand
-import Utility.Env
-
-cmdProperty :: String -> [CommandParam] -> Property
-cmdProperty cmd params = cmdProperty' cmd params []
-
-cmdProperty' :: String -> [CommandParam] -> [(String, String)] -> Property
-cmdProperty' cmd params env = Property desc $ do
-	env' <- addEntries env <$> getEnvironment
-	ifM (boolSystemEnv cmd params (Just env'))
-		( return MadeChange
-		, return FailedChange
-		)
-  where
-  	desc = unwords $ cmd : map showp params
-	showp (Params s) = s
-	showp (Param s) = s
-	showp (File s) = s
-
-scriptProperty :: [String] -> Property
-scriptProperty script = cmdProperty "sh" [Param "-c", Param shellcmd]
-  where
-	shellcmd = intercalate " ; " ("set -e" : script)
-- 
cgit v1.3-2-g0d8e