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

compress tarball 

11 mb -> 4 mb
This commit is contained in:
Joey Hess 2014-11-22 01:13:53 -04:00
parent c0662e6258
commit 128e16472a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Propellor/Server.hs
View File

@ -147,7 +147,7 @@ sendPrecompiled hn = void $ actionMessage ("Uploading locally compiled propellor
changeWorkingDirectory tmpdir changeWorkingDirectory tmpdir
withTmpFile "propellor.tar." $ \tarball _ -> allM id withTmpFile "propellor.tar." $ \tarball _ -> allM id
[ boolSystem "strip" [File me] [ boolSystem "strip" [File me]
, boolSystem "tar" [Param "cf", File tarball, File shimdir] , boolSystem "tar" [Param "czf", File tarball, File shimdir]
, boolSystem "scp" $ cacheparams ++ [File tarball, Param ("root@"++hn++":"++remotetarball)] , boolSystem "scp" $ cacheparams ++ [File tarball, Param ("root@"++hn++":"++remotetarball)]
, boolSystem "ssh" $ cacheparams ++ [Param ("root@"++hn), Param unpackcmd] , boolSystem "ssh" $ cacheparams ++ [Param ("root@"++hn), Param unpackcmd]
] ]
@ -156,7 +156,7 @@ sendPrecompiled hn = void $ actionMessage ("Uploading locally compiled propellor
unpackcmd = shellWrap $ intercalate " && " unpackcmd = shellWrap $ intercalate " && "
[ "cd " ++ takeDirectory remotetarball [ "cd " ++ takeDirectory remotetarball
, "tar xf " ++ remotetarball , "tar xzf " ++ remotetarball
, "rm -f " ++ remotetarball , "rm -f " ++ remotetarball
] ]