@@ -54,7 +54,7 @@ compile :: PSCMakeOptions -> IO ()
54compile (PSCMakeOptions inputGlob inputForeignGlob outputDir opts usePrefix) = do
54compile (PSCMakeOptions inputGlob inputForeignGlob outputDir opts usePrefix) = do
55 input <- concat <$> mapM glob inputGlob
55 input <- concat <$> mapM glob inputGlob
56 when (null input) $ do
56 when (null input) $ do
57− putStrLn "psc-make: No input files."
57+ hPutStrLn stderr "psc-make: No input files."
58 exitFailure
58 exitFailure
59 moduleFiles <- readInput (InputOptions input)
59 moduleFiles <- readInput (InputOptions input)
60 inputForeign <- concat <$> mapM glob inputForeignGlob
60 inputForeign <- concat <$> mapM glob inputForeignGlob
@@ -71,7 +71,7 @@ compile (PSCMakeOptions inputGlob inputForeignGlob outputDir opts usePrefix) = d
71 e <- runMake opts $ P.make makeActions ms
71 e <- runMake opts $ P.make makeActions ms
73 Left errs -> do
73 Left errs -> do
74− putStrLn (P.prettyPrintMultipleErrors (P.optionsVerboseErrors opts) errs)
74+ hPutStrLn stderr (P.prettyPrintMultipleErrors (P.optionsVerboseErrors opts) errs)
75 exitFailure
75 exitFailure
76 Right (_, warnings') -> do
76 Right (_, warnings') -> do
77 when (P.nonEmpty warnings') $
77 when (P.nonEmpty warnings') $