summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Propellor/Spin.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs
index b148fe75..7f8c87a2 100644
--- a/src/Propellor/Spin.hs
+++ b/src/Propellor/Spin.hs
@@ -31,6 +31,8 @@ import qualified Propellor.Shim as Shim
import Utility.FileMode
import Utility.SafeCommand
+import System.Console.Concurrent
+
commitSpin :: IO ()
commitSpin = do
-- safety check #1: check we're on the configured spin branch
@@ -81,7 +83,7 @@ spin' mprivdata relay target hst = do
(proc "ssh" $ cacheparams ++ [sshtarget, shellWrap probecmd])
(proc "ssh" $ cacheparams ++ [sshtarget, shellWrap updatecmd])
=<< getprivdata
- async $ boolSystem "sleep" [Param "500"]
+ async $ createProcessForeground $ proc "sleep" ["500"]
-- And now we can run it.
unlessM (boolSystem "ssh" (map Param $ cacheparams ++ ["-t", sshtarget, shellWrap runcmd])) $