From 1c70d2e18917973723bf836fdc1f789532d96811 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 2 Apr 2016 01:49:01 -0400 Subject: avoid wrapper building propellor unnessessarily --- src/wrapper.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/wrapper.hs') 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 -- cgit v1.2.3