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

Revert "avoid removing whole localdir every time the precompiled tarball is uploaded" 

This reverts commit 40bec41f56.
This commit is contained in:
Joey Hess 2014-11-22 20:42:20 -04:00
parent 44111583e1
commit 58b5de7802
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Propellor/Spin.hs
View File

@ -217,7 +217,7 @@ sendPrecompiled hn = void $ actionMessage ("Uploading locally compiled propellor
where where
go tmpdir = do go tmpdir = do
cacheparams <- sshCachingParams hn cacheparams <- sshCachingParams hn
let shimdir = takeFileName localdir </> "shim" let shimdir = takeFileName localdir
createDirectoryIfMissing True (tmpdir </> shimdir) createDirectoryIfMissing True (tmpdir </> shimdir)
changeWorkingDirectory (tmpdir </> shimdir) changeWorkingDirectory (tmpdir </> shimdir)
me <- readSymbolicLink "/proc/self/exe" me <- readSymbolicLink "/proc/self/exe"
@ -237,10 +237,9 @@ sendPrecompiled hn = void $ actionMessage ("Uploading locally compiled propellor
unpackcmd = shellWrap $ intercalate " && " unpackcmd = shellWrap $ intercalate " && "
[ "cd " ++ takeDirectory remotetarball [ "cd " ++ takeDirectory remotetarball
, "rm -rf " ++ localdir </> "shim" , "rm -rf " ++ localdir
, "tar xzf " ++ remotetarball , "tar xzf " ++ remotetarball
, "rm -f " ++ remotetarball , "rm -f " ++ remotetarball
, "ln -sf shim/propellor propellor/propellor"
] ]
-- Shim for git push over the propellor ssh channel. -- Shim for git push over the propellor ssh channel.