summaryrefslogtreecommitdiff
path: root/src/Propellor/Spin.hs
diff options
context:
space:
mode:
authorJoey Hess2016-03-06 19:38:01 -0400
committerJoey Hess2016-03-06 19:38:01 -0400
commit7e88dd094ec3f36e6213dd1ff7010e3bf7a152f5 (patch)
treee0423ba3b7e003c4a11d9e15db4d0d5ed105944f /src/Propellor/Spin.hs
parent463418726ad8d8b80b5f0aae302c18c1516774f8 (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Spin.hs')
-rw-r--r--src/Propellor/Spin.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs
index 495ebaf4..718475e8 100644
--- a/src/Propellor/Spin.hs
+++ b/src/Propellor/Spin.hs
@@ -66,6 +66,7 @@ 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