From c4e2006f00ff78d56d3f4ad815564b53e87ec9fb Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 6 Mar 2016 19:47:09 -0400 Subject: propellor spin --- src/Propellor/Spin.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Propellor') 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])) $ -- cgit v1.2.3