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 _ -> do exists <- doesDirectoryExist p
if exists if exists
then return [p] then return [p]
else return [] else do when (verbAtLeast opts Verbose) $ putStrLn ("ignore path "++p)
return []
getSubdirs :: FilePath -> IO [FilePath] getSubdirs :: FilePath -> IO [FilePath]
getSubdirs dir = do getSubdirs dir = do