Merge pull request purescript#1114 from mjgpy3/1097_less_verbose_compile_errors

paf31 · paf31 · commit 76940aaeea9a · 2015-05-17T11:54:10.000-07:00
Resolves purescript#1097. "Reading ..." error output is only shown when passed …
diff --git a/psc-make/Main.hs b/psc-make/Main.hs
@@ -68,9 +68,11 @@ instance P.MonadMake Make where
   getTimestamp path = makeIO (const (P.SimpleErrorWrapper $ P.CannotGetFileInfo path)) $ do
     exists <- doesFileExist path
     traverse (const $ getModificationTime path) $ guard exists
-  readTextFile path = makeIO (const (P.SimpleErrorWrapper $ P.CannotReadFile path)) $ do
-    putStrLn $ "Reading " ++ path
-    readFile path
+  readTextFile path = do
+    verboseErrorsEnabled <- asks P.optionsVerboseErrors
+    makeIO (const (P.SimpleErrorWrapper $ P.CannotReadFile path)) $ do
+      when verboseErrorsEnabled $ putStrLn $ "Reading " ++ path
+      readFile path
   writeTextFile path text = makeIO (const (P.SimpleErrorWrapper $ P.CannotWriteFile path)) $ do
     mkdirp path
     putStrLn $ "Writing " ++ path
