diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-10-28 20:20:53 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-28 20:20:53 -0400 |
| commit | dba2e73aa7daede014969d6c4c159e86871d6b01 (patch) | |
| tree | a854d1c35753b78620ee8f438dba6d4ca715cea4 | |
| parent | 6de8582fbae52a389c0d391f768284d6434b1467 (diff) | |
propellor spin
| -rw-r--r-- | src/Propellor/Spin.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Propellor/Spin.hs b/src/Propellor/Spin.hs index 0c457705..478d1517 100644 --- a/src/Propellor/Spin.hs +++ b/src/Propellor/Spin.hs @@ -29,6 +29,7 @@ import Propellor.Types.Info import qualified Propellor.Shim as Shim import Utility.FileMode import Utility.SafeCommand +import Utility.ConcurrentOutput commitSpin :: IO () commitSpin = do @@ -63,6 +64,7 @@ spin' mprivdata relay target hst = do getprivdata -- And now we can run it. + flushConcurrentOutput unlessM (boolSystem "ssh" (map Param $ cacheparams ++ ["-t", sshtarget, shellWrap runcmd])) $ error "remote propellor failed" where |