hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

adding dir for doesFileExist.

Browse Source
This commit is contained in:
Kazu Yamamoto 2011-10-19 14:22:28 +09:00
parent a07ce7edcc
commit dc552406e0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Cabal.hs
View File

@ -83,7 +83,7 @@ getDirs = do
cabalDir :: FilePath -> IO (Maybe (FilePath,FilePath)) cabalDir :: FilePath -> IO (Maybe (FilePath,FilePath))
cabalDir dir = do cabalDir dir = do
cnts <- (filter isCabal <$> getDirectoryContents dir) cnts <- (filter isCabal <$> getDirectoryContents dir)
>>= filterM doesFileExist >>= filterM (\file -> doesFileExist (dir </> file))
case cnts of case cnts of
[] -> do [] -> do
let dir' = takeDirectory dir let dir' = takeDirectory dir