summaryrefslogtreecommitdiff
path: root/src/Propellor/CmdLine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-22 16:14:20 -0400
committerJoey Hess2014-11-22 16:14:20 -0400
commitcb94e7484e5c0c966f3f9624e910ae2521b259a3 (patch)
treeee88d432f20a9c65eea7993d4b20efb1c3a08a46 /src/Propellor/CmdLine.hs
parent7ed9f70504d902f48e88e7701f6398e769072bd7 (diff)
propellor spin
Diffstat (limited to 'src/Propellor/CmdLine.hs')
-rw-r--r--src/Propellor/CmdLine.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index 51ee592d..5827409c 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -166,9 +166,11 @@ spin target relay hst = do
void $ actionMessage "Push to central git repository" $
boolSystem "git" [Param "push"]
- cacheparams <- if relaying || viarelay
+ cacheparams <- if relaying
then pure []
- else toCommand <$> sshCachingParams hn viarelay
+ else if viarelay
+ then pure ["-A"]
+ else toCommand <$> sshCachingParams hn viarelay
when viarelay $
void $ boolSystem "ssh-add" []