Run executables or tests synchronously

1 files changed, 2 insertions, 2 deletions

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