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

propellor spin

This commit is contained in:
Joey Hess 2014-11-22 15:11:24 -04:00
parent 99fc967eca
commit 151aadd4e2
Failed to extract signature
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Propellor/CmdLine.hs
View File

@ -170,7 +170,7 @@ spin target relay hst = do
(proc "ssh" $ cacheparams ++ [user, updatecmd]) (proc "ssh" $ cacheparams ++ [user, updatecmd])
-- And now we can run it. -- And now we can run it.
unlessM (boolSystem "ssh" (map Param $ cacheparams ++ ["-t", user, runcmd])) $ unlessM (boolSystem "ssh" (map Param $ cacheparams ++ runparams)) $
error $ "remote propellor failed" error $ "remote propellor failed"
where where
hn = fromMaybe target relay hn = fromMaybe target relay
@ -200,4 +200,9 @@ spin target relay hst = do
cmd = if isNothing relay cmd = if isNothing relay
then "--continue " ++ shellEscape (show (SimpleRun target)) then "--continue " ++ shellEscape (show (SimpleRun target))
else "--spin " ++ shellEscape target else "--spin " ++ shellEscape target
runparams = catMaybes
[ if isJust relay then Just "-A" else Nothing
, Just "-t"
, Just user
, Just runcmd
]