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

1
src/Propellor/Server.hs
View File

@ -129,6 +129,7 @@ sendPrecompiled hn = void $ actionMessage ("Uploading locally compiled propellor
withTmpDir "propellor" $ \tmpdir -> withTmpDir "propellor" $ \tmpdir ->
bracket getWorkingDirectory changeWorkingDirectory $ \_ -> do bracket getWorkingDirectory changeWorkingDirectory $ \_ -> do
let shimdir = "propellor" let shimdir = "propellor"
createDirectoryIfMissing True shimdir
changeWorkingDirectory shimdir changeWorkingDirectory shimdir
me <- readSymbolicLink "/proc/self/exe" me <- readSymbolicLink "/proc/self/exe"
shim <- Shim.setup me "." shim <- Shim.setup me "."