summaryrefslogtreecommitdiff
path: root/src/wrapper.hs
diff options
context:
space:
mode:
authorJoey Hess2016-04-02 01:49:01 -0400
committerJoey Hess2016-04-02 01:49:01 -0400
commit1c70d2e18917973723bf836fdc1f789532d96811 (patch)
tree2d08a61c03f253b857ed696fb7a8c39dfdb6b865 /src/wrapper.hs
parente3920861ee444945e54fd42ce0f599d585155652 (diff)
avoid wrapper building propellor unnessessarily
Diffstat (limited to 'src/wrapper.hs')
-rw-r--r--src/wrapper.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/src/wrapper.hs b/src/wrapper.hs
index 1a90fcb0..c65d60d3 100644
--- a/src/wrapper.hs
+++ b/src/wrapper.hs
@@ -34,8 +34,9 @@ main = withConcurrentOutput $ go =<< getArgs
buildRunConfig :: [String] -> IO ()
buildRunConfig args = do
changeWorkingDirectory =<< dotPropellor
- buildPropellor Nothing
- putStrLn ""
- putStrLn ""
+ unlessM (doesFileExist "propellor") $ do
+ buildPropellor Nothing
+ putStrLn ""
+ putStrLn ""
(_, _, _, pid) <- createProcess (proc "./propellor" args)
exitWith =<< waitForProcess pid