summaryrefslogtreecommitdiff
path: root/Property/Cmd.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Property/Cmd.hs')
-rw-r--r--Property/Cmd.hs7
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