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