summaryrefslogtreecommitdiff
path: root/src/Propellor/Server.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-22 00:35:14 -0400
committerJoey Hess2014-11-22 00:35:14 -0400
commit1af398d33eee40a13d7c310e6f97b170b47d21ff (patch)
treee844ee1c428fbf035d287596bbce728b7be44bfb /src/Propellor/Server.hs
parentf1fdd6f678d2d5d753407434a53cc6e2876185ae (diff)
propellor spin
Diffstat (limited to 'src/Propellor/Server.hs')
-rw-r--r--src/Propellor/Server.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Propellor/Server.hs b/src/Propellor/Server.hs
index a72c83ae..fb37ff1a 100644
--- a/src/Propellor/Server.hs
+++ b/src/Propellor/Server.hs
@@ -129,6 +129,7 @@ sendPrecompiled hn = void $ actionMessage ("Uploading locally compiled propellor
withTmpDir "propellor" $ \tmpdir ->
bracket getWorkingDirectory changeWorkingDirectory $ \_ -> do
let shimdir = "propellor"
+ createDirectoryIfMissing True shimdir
changeWorkingDirectory shimdir
me <- readSymbolicLink "/proc/self/exe"
shim <- Shim.setup me "."