summaryrefslogtreecommitdiff
path: root/Property/Cmd.hs
diff options
context:
space:
mode:
authorJoey Hess2014-03-30 23:37:54 -0400
committerJoey Hess2014-03-30 23:37:54 -0400
commit380c1b0fd6c25dec3c924b82f1d721aa91a001da (patch)
tree7d5b73309b73f13ac2be3f911318fe6a126264ff /Property/Cmd.hs
parent02a7bf5f0e2de1d0dea71781ed0c1ae3a50e6425 (diff)
prepare for hackage
Diffstat (limited to 'Property/Cmd.hs')
-rw-r--r--Property/Cmd.hs35
1 files changed, 0 insertions, 35 deletions
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)