summaryrefslogtreecommitdiff
path: root/src/Propellor/Spin.hs
diff options
context:
space:
mode:
authorJoey Hess2016-03-06 19:45:29 -0400
committerJoey Hess2016-03-06 19:45:29 -0400
commitea649f770ef7e2fa8968adc2ff19cf5a4f4f6c2f (patch)
tree36aa58bfd9715d9badb8eacf99429ac7c031a29f /src/Propellor/Spin.hs
parent4776ae2e128e71eb597cdc6bc1667d2c030b3d00 (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Spin.hs')
-rw-r--r--src/Propellor/Spin.hs2
1 files changed, 1 insertions, 1 deletions
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])) $