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 00:27:35 -04:00
parent 7fd338f96f
commit 99e0a5fea7
Failed to extract signature
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Propellor/Server.hs
View File

@ -131,7 +131,7 @@ sendPrecompiled hn = void $ actionMessage ("Uploading locally compiled propellor
bracket getWorkingDirectory changeWorkingDirectory $ \_ -> do bracket getWorkingDirectory changeWorkingDirectory $ \_ -> do
changeWorkingDirectory tmpdir changeWorkingDirectory tmpdir
let shimdir = "propellor" let shimdir = "propellor"
let me = localdir </> "propellor" me <- readSymbolicLink "/proc/self/exe"
void $ Shim.setup me shimdir void $ Shim.setup me shimdir
withTmpFile "propellor.tar" $ \tarball _ -> allM id withTmpFile "propellor.tar" $ \tarball _ -> allM id
[ boolSystem "strip" [File me] [ boolSystem "strip" [File me]