diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-22 16:06:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-22 16:06:44 -0400 |
| commit | 392a0d3c1cc175161cd0c6d82b098e92d6adf9e6 (patch) | |
| tree | ed59269ad54da8fd66179beaa47c2d3b76709f5b /src/Propellor/Server.hs | |
| parent | 6d13790afa236b958eec9e8a0ea1e75125d90351 (diff) | |
propellor spin
Diffstat (limited to 'src/Propellor/Server.hs')
| -rw-r--r-- | src/Propellor/Server.hs | 4 |
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) |