summaryrefslogtreecommitdiff
path: root/Property/Cmd.hs
blob: c78adaebca9076918b9e812039b6505b6790d08c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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