summaryrefslogtreecommitdiff
path: root/src/Propellor/Spin.hs
diff options
context:
space:
mode:
authorJoey Hess2016-03-06 19:47:09 -0400
committerJoey Hess2016-03-06 19:47:09 -0400
commitc4e2006f00ff78d56d3f4ad815564b53e87ec9fb (patch)
tree5dc80edd356dbecbdd6edc2e04b2a7509ef27a60 /src/Propellor/Spin.hs
parentea649f770ef7e2fa8968adc2ff19cf5a4f4f6c2f (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Spin.hs')
-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])) $