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

Fix findFilesInParentsP appending wrong directory

Browse Source
This commit is contained in:
Daniel Gröber 2016-09-17 18:09:48 +02:00
parent 9074e6e31c
commit b7cda9e9b9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Language/Haskell/GhcMod/PathsAndFiles.hs
View File

@ -142,7 +142,7 @@ findFileInParentsP p r dir = runMaybeT $
findFilesInParentsP :: (FilePath -> Bool) -> FilePath findFilesInParentsP :: (FilePath -> Bool) -> FilePath
-> IO [IO [FilePath]] -> IO [IO [FilePath]]
findFilesInParentsP p dir' = U.makeAbsolute' dir' >>= \dir -> return $ findFilesInParentsP p dir' = U.makeAbsolute' dir' >>= \dir -> return $
map (fmap (map (dir </>)) . getFilesP p) $ parents dir map (\d -> (map (d </>)) <$> getFilesP p d) $ parents dir
-- | @getFilesP p dir@. Find all __files__ satisfying @p@ in @.cabal@ in @dir@. -- | @getFilesP p dir@. Find all __files__ satisfying @p@ in @.cabal@ in @dir@.
getFilesP :: (FilePath -> Bool) -> DirPath -> IO [FileName] getFilesP :: (FilePath -> Bool) -> DirPath -> IO [FileName]