From 9d83f04a6f6318fd51405da500a3529fe7f9fabd Mon Sep 17 00:00:00 2001 From: Brad Richardson Date: Sat, 30 May 2020 16:22:02 -0700 Subject: Run executables or tests synchronously --- src/Fpm.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Fpm.hs b/src/Fpm.hs index 8e6a205..417b6ed 100644 --- a/src/Fpm.hs +++ b/src/Fpm.hs @@ -126,7 +126,7 @@ app args settings = case command' args of canonicalExecutables <- mapM makeAbsolute executables case canonicalExecutables of [] -> putStrLn "No Executables Found" - _ -> mapM_ runCommand canonicalExecutables + _ -> mapM_ system canonicalExecutables Test -> do build settings let buildPrefix = appSettingsBuildPrefix settings @@ -141,7 +141,7 @@ app args settings = case command' args of canonicalExecutables <- mapM makeAbsolute executables case canonicalExecutables of [] -> putStrLn "No Tests Found" - _ -> mapM_ runCommand canonicalExecutables + _ -> mapM_ system canonicalExecutables build :: AppSettings -> IO () build settings = do -- cgit v1.2.3