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

propellor spin

This commit is contained in:
Joey Hess 2014-11-22 17:22:11 -04:00
parent aa986724a2
commit 95f78a0586
Failed to extract signature
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Propellor/Server.hs
View File

@ -161,10 +161,10 @@ sendPrecompiled hn = void $ actionMessage ("Uploading locally compiled propellor
createDirectoryIfMissing True (tmpdir </> shimdir) createDirectoryIfMissing True (tmpdir </> shimdir)
changeWorkingDirectory (tmpdir </> shimdir) changeWorkingDirectory (tmpdir </> shimdir)
me <- readSymbolicLink "/proc/self/exe" me <- readSymbolicLink "/proc/self/exe"
me' <- catchDefaultIO me (readSymbolicLink me) createDirectoryIfMissing True "bin"
shim <- Shim.setup me' "." unlessM (boolSystem "cp" [File me, File "bin/propellor"]) $
when (shim /= "propellor") $ errorMessage "failed copying in propellor"
renameFile shim "propellor" void $ Shim.setup "bin/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]