From ea649f770ef7e2fa8968adc2ff19cf5a4f4f6c2f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 6 Mar 2016 19:45:29 -0400 Subject: propellor spin --- src/Propellor/Spin.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Propellor/Spin.hs') diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs index 718475e8..b148fe75 100644 --- a/src/Propellor/Spin.hs +++ b/src/Propellor/Spin.hs @@ -66,7 +66,6 @@ spin = spin' Nothing spin' :: Maybe PrivMap -> Maybe HostName -> HostName -> Host -> IO () spin' mprivdata relay target hst = do - async $ boolSystem "sleep" [Param "500"] cacheparams <- if viarelay then pure ["-A"] else toCommand <$> sshCachingParams hn @@ -82,6 +81,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"] -- And now we can run it. unlessM (boolSystem "ssh" (map Param $ cacheparams ++ ["-t", sshtarget, shellWrap runcmd])) $ -- cgit v1.2.3