diff options
Diffstat (limited to 'Property/Cmd.hs')
| -rw-r--r-- | Property/Cmd.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Property/Cmd.hs b/Property/Cmd.hs index b29a12b3..0a4a5ba4 100644 --- a/Property/Cmd.hs +++ b/Property/Cmd.hs @@ -1,10 +1,12 @@ module Property.Cmd ( cmdProperty, cmdProperty', + scriptProperty, module Utility.SafeCommand ) where import Control.Applicative +import Data.List import Types import Utility.Monad @@ -26,3 +28,8 @@ cmdProperty' cmd params env = Property desc $ do 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 " && " script |