diff options
-rw-r--r-- | src/Fpm.hs | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -98,7 +98,9 @@ app args settings = case command' args of let executables = map (buildPrefix </>) $ map (flip (<.>) exe) executableNames canonicalExecutables <- mapM makeAbsolute executables - mapM_ runCommand canonicalExecutables + case canonicalExecutables of + [] -> putStrLn "No Executables Found" + _ -> mapM_ runCommand canonicalExecutables Test -> do build settings let buildPrefix = appSettingsBuildPrefix settings @@ -111,7 +113,9 @@ app args settings = case command' args of let executables = map (buildPrefix </>) $ map (flip (<.>) exe) executableNames canonicalExecutables <- mapM makeAbsolute executables - mapM_ runCommand canonicalExecutables + case canonicalExecutables of + [] -> putStrLn "No Tests Found" + _ -> mapM_ runCommand canonicalExecutables build :: AppSettings -> IO () build settings = do |