diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-18 18:15:04 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-18 18:15:04 -0400 |
| commit | 8f5166748a0a722946817e3626b383cf9fa346c5 (patch) | |
| tree | 0869605002fb9788debf05d099a64d18e5a3817a /src | |
| parent | f8917a505e80ed58b0f3a0cab20d3941229882a9 (diff) | |
propellor spin
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/CmdLine.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs index 6716e361..bbbcf188 100644 --- a/src/Propellor/CmdLine.hs +++ b/src/Propellor/CmdLine.hs @@ -209,14 +209,14 @@ spin hn hst = do cacheparams <- toCommand <$> sshCachingParams hn comm cacheparams =<< hostprivdata - unlessM (boolSystem "ssh" (map Param (cacheparams ++ [user, runcmd]))) $ + unlessM (boolSystem "ssh" (map Param (cacheparams ++ ["-t", user, runcmd]))) $ error $ "remote propellor failed (running: " ++ runcmd ++")" where hostprivdata = show . filterPrivData hst <$> decryptPrivData comm cacheparams privdata = withBothHandles createProcessSuccess - (proc "ssh" $ cacheparams ++ ["-t", user, bootstrapcmd]) + (proc "ssh" $ cacheparams ++ [ user, bootstrapcmd]) (comm' cacheparams privdata) comm' cacheparams privdata (toh, fromh) = loop where |