diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-03-06 19:45:29 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-03-06 19:45:29 -0400 |
| commit | ea649f770ef7e2fa8968adc2ff19cf5a4f4f6c2f (patch) | |
| tree | 36aa58bfd9715d9badb8eacf99429ac7c031a29f /src/Propellor/Spin.hs | |
| parent | 4776ae2e128e71eb597cdc6bc1667d2c030b3d00 (diff) | |
propellor spin
Diffstat (limited to 'src/Propellor/Spin.hs')
| -rw-r--r-- | src/Propellor/Spin.hs | 2 |
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])) $ |