diff options
| author | Joey Hess <joey@kitenet.net> | 2014-03-30 23:37:54 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-03-30 23:37:54 -0400 |
| commit | 380c1b0fd6c25dec3c924b82f1d721aa91a001da (patch) | |
| tree | 7d5b73309b73f13ac2be3f911318fe6a126264ff /Property/Cmd.hs | |
| parent | 02a7bf5f0e2de1d0dea71781ed0c1ae3a50e6425 (diff) | |
prepare for hackage
Diffstat (limited to 'Property/Cmd.hs')
| -rw-r--r-- | Property/Cmd.hs | 35 |
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) |