Fix after review (bash_ uses run_)

gregwebs · Jul 21, 2015 · 07927eb · 07927eb
1 parent cc8b7da
commit 07927eb
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Shelly.hs b/src/Shelly.hs
@@ -1058,7 +1058,9 @@ bash fp args = escaping False $ do
   run "bash" ["-c", "'set -o pipefail && " <> sanitise (toTextIgnore fp : args) <> "'"]
 
 bash_ :: FilePath -> [Text] -> Sh ()
-bash_ fp args = const () <$> bash fp args
+bash_ fp args = escaping False $ do
+  let sanitise = T.replace "'" "\'" . T.intercalate " "
+  run_ "bash" ["-c", "'set -o pipefail && " <> sanitise (toTextIgnore fp : args) <> "'"]
 
 -- | bind some arguments to run for re-use. Example:
 --