summaryrefslogtreecommitdiff
path: root/src/Propellor/Server.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-22 16:06:44 -0400
committerJoey Hess2014-11-22 16:06:44 -0400
commit392a0d3c1cc175161cd0c6d82b098e92d6adf9e6 (patch)
treeed59269ad54da8fd66179beaa47c2d3b76709f5b /src/Propellor/Server.hs
parent6d13790afa236b958eec9e8a0ea1e75125d90351 (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Server.hs')
-rw-r--r--src/Propellor/Server.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Server.hs b/src/Propellor/Server.hs
index be2eb1d3..38325003 100644
--- a/src/Propellor/Server.hs
+++ b/src/Propellor/Server.hs
@@ -131,7 +131,7 @@ sendGitUpdate hn fromh toh =
sendGitClone :: HostName -> IO ()
sendGitClone hn = void $ actionMessage ("Clone git repository to " ++ hn) $ do
branch <- getCurrentBranch
- cacheparams <- sshCachingParams hn
+ cacheparams <- sshCachingParams hn False
withTmpFile "propellor.git" $ \tmp _ -> allM id
[ boolSystem "git" [Param "bundle", Param "create", File tmp, Param "HEAD"]
, boolSystem "scp" $ cacheparams ++ [File tmp, Param ("root@"++hn++":"++remotebundle)]
@@ -156,7 +156,7 @@ sendPrecompiled hn = void $ actionMessage ("Uploading locally compiled propellor
withTmpDir "propellor" go
where
go tmpdir = do
- cacheparams <- sshCachingParams hn
+ cacheparams <- sshCachingParams hn False
let shimdir = takeFileName localdir
createDirectoryIfMissing True (tmpdir </> shimdir)
changeWorkingDirectory (tmpdir </> shimdir)