2014-03-30 19:31:57 +00:00
|
|
|
module Property.Cmd (
|
|
|
|
|
cmdProperty,
|
|
|
|
|
cmdProperty',
|
|
|
|
|
module Utility.SafeCommand
|
|
|
|
|
) where
|
|
|
|
|
|
|
|
|
|
import Control.Applicative
|
|
|
|
|
|
2014-03-30 23:10:32 +00:00
|
|
|
import Types
|
2014-03-30 19:31:57 +00:00
|
|
|
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
|
