@@ -68,9 +68,11 @@ instance P.MonadMake Make where
6868 getTimestamp path = makeIO (const (P.SimpleErrorWrapper $ P.CannotGetFileInfo path)) $ do
6969 exists <- doesFileExist path
7070 traverse (const $ getModificationTime path) $ guard exists
71− readTextFile path = makeIO (const (P.SimpleErrorWrapper $ P.CannotReadFile path)) $ do
72− putStrLn $ "Reading " ++ path
73− readFile path
71+ readTextFile path = do
72+ verboseErrorsEnabled <- asks P.optionsVerboseErrors
73+ makeIO (const (P.SimpleErrorWrapper $ P.CannotReadFile path)) $ do
74+ when verboseErrorsEnabled $ putStrLn $ "Reading " ++ path
75+ readFile path
7476 writeTextFile path text = makeIO (const (P.SimpleErrorWrapper $ P.CannotWriteFile path)) $ do
7577 mkdirp path
7678 putStrLn $ "Writing " ++ path