summaryrefslogtreecommitdiff
path: root/Propellor/Property/Cmd.hs
blob: 6e23955c5aab6efb5725d1f1d426bb620e8025f0 (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
29
30
31
32
33
34
35
module Propellor.Property.Cmd (
	cmdProperty,
	cmdProperty',
	scriptProperty,
	module Utility.SafeCommand
) where

import Control.Applicative
import Data.List

import Propellor.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)