summaryrefslogtreecommitdiff
path: root/src/Propellor/CmdLine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-18 18:15:04 -0400
committerJoey Hess2014-11-18 18:15:04 -0400
commit8f5166748a0a722946817e3626b383cf9fa346c5 (patch)
tree0869605002fb9788debf05d099a64d18e5a3817a /src/Propellor/CmdLine.hs
parentf8917a505e80ed58b0f3a0cab20d3941229882a9 (diff)
propellor spin
Diffstat (limited to 'src/Propellor/CmdLine.hs')
-rw-r--r--src/Propellor/CmdLine.hs4
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