diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-03-06 19:47:09 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-03-06 19:47:09 -0400 |
| commit | c4e2006f00ff78d56d3f4ad815564b53e87ec9fb (patch) | |
| tree | 5dc80edd356dbecbdd6edc2e04b2a7509ef27a60 /src/Propellor/Spin.hs | |
| parent | ea649f770ef7e2fa8968adc2ff19cf5a4f4f6c2f (diff) | |
propellor spin
Diffstat (limited to 'src/Propellor/Spin.hs')
| -rw-r--r-- | src/Propellor/Spin.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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])) $ |