Resolves purescript#1097. "Reading ..." error output is only shown when passed flag.

mjgpy3 · mjgpy3 · commit 4e7242a8fdf1 · 2015-05-11T21:20:27.000-04:00
Uses the --verbose-errors flag to hide some "Reading ..." errors.
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
