cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-11-18 18:15:04 -04:00
parent f8917a505e
commit 8f5166748a
Failed to extract signature
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Propellor/CmdLine.hs
View File

@ -209,14 +209,14 @@ spin hn hst = do
cacheparams <- toCommand <$> sshCachingParams hn cacheparams <- toCommand <$> sshCachingParams hn
comm cacheparams =<< hostprivdata 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 ++")" error $ "remote propellor failed (running: " ++ runcmd ++")"
where where
hostprivdata = show . filterPrivData hst <$> decryptPrivData hostprivdata = show . filterPrivData hst <$> decryptPrivData
comm cacheparams privdata = comm cacheparams privdata =
withBothHandles createProcessSuccess withBothHandles createProcessSuccess
(proc "ssh" $ cacheparams ++ ["-t", user, bootstrapcmd]) (proc "ssh" $ cacheparams ++ [ user, bootstrapcmd])
(comm' cacheparams privdata) (comm' cacheparams privdata)
comm' cacheparams privdata (toh, fromh) = loop comm' cacheparams privdata (toh, fromh) = loop
where where