in verbosity mode the compiler warns about missing paths

This commit is contained in:
kr.angelov
2014-05-21 07:33:35 +00:00
parent 43eaedd326
commit 75475b579d

View File

@@ -93,7 +93,8 @@ extendPathEnv opts = liftIO $ do
_ -> do exists <- doesDirectoryExist p
if exists
then return [p]
else return []
else do when (verbAtLeast opts Verbose) $ putStrLn ("ignore path "++p)
return []
getSubdirs :: FilePath -> IO [FilePath]
getSubdirs dir = do