29 lines
680 B
Haskell
29 lines
680 B
Haskell
|
module Property.Cmd (
|
||
|
|
cmdProperty,
|
||
|
|
cmdProperty',
|
||
|
|
module Utility.SafeCommand
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Control.Applicative
|
||
|
|
|
||
|
|
import Property
|
||
|
|
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
|