diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2021-02-19 12:26:10 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2021-02-19 12:26:10 +0100 |
| commit | 08f53feceb1edb10f8b3a816021fb580b27e5b4c (patch) | |
| tree | 0bbdc7dec598d05c36af270097533000946710b7 /Coolbal | |
| parent | 70f8330a21c335f36980f4b491d5b4e65a035c1c (diff) | |
Write to stderr, not stdout
Diffstat (limited to 'Coolbal')
| -rw-r--r-- | Coolbal/Configure.hs | 2 | ||||
| -rw-r--r-- | Coolbal/FindRoot.hs | 2 | ||||
| -rw-r--r-- | Coolbal/Target.hs | 9 |
3 files changed, 6 insertions, 7 deletions
diff --git a/Coolbal/Configure.hs b/Coolbal/Configure.hs index 92865e7..d64b4b3 100644 --- a/Coolbal/Configure.hs +++ b/Coolbal/Configure.hs @@ -37,5 +37,5 @@ configure fname = do mapM_ (\d -> hPutStrLn stderr ("- " ++ show d)) deps exitFailure Right (pd, _flags) -> do - -- putStrLn ("Configured with flags: " ++ show flags) + -- hPutStrLn stderr ("Configured with flags: " ++ show flags) return pd diff --git a/Coolbal/FindRoot.hs b/Coolbal/FindRoot.hs index ea6e297..fb65491 100644 --- a/Coolbal/FindRoot.hs +++ b/Coolbal/FindRoot.hs @@ -23,7 +23,7 @@ findCabalSpec = do mfound <- findThingInDirs "cabal file" (`endsWith` ".cabal") doesFileExist FoundCabalSpec (ancestors cwd) case mfound of Just found -> do - putStrLn ("Found .cabal file: " ++ foundcsCabal found) + hPutStrLn stderr ("Found .cabal file: " ++ foundcsCabal found) return found Nothing -> do hPutStrLn stderr (".cabal file not found in ancestors of PWD: " ++ cwd) diff --git a/Coolbal/Target.hs b/Coolbal/Target.hs index 761f19d..64a0a16 100644 --- a/Coolbal/Target.hs +++ b/Coolbal/Target.hs @@ -111,17 +111,16 @@ instance IsTarget ExeTarget where ,map (intercalate ".") (exeTargetModules tg) ,["-o", binName] ,exeTargetFlags tg]) - >>= checkExitCode "ghc" + >>= checkExitCode targetExecute tg = Just $ \projdir args -> do let filename = escapeFileName (exeTargetName tg) rawSystem (projdir </> "dist-coolbal/bin" </> filename) args >>= exitWith -checkExitCode :: String -> ExitCode -> IO () -checkExitCode _ ExitSuccess = return () -checkExitCode procname (ExitFailure c) = - die (procname ++ " exited with code " ++ show c) +checkExitCode :: ExitCode -> IO () +checkExitCode ExitSuccess = return () +checkExitCode c@(ExitFailure _) = exitWith c escapeFileName :: String -> FilePath escapeFileName = |